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Most of the information we publish is provided by our readers, to whom we pay royalties. An 
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** CONTENT ** 
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** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
it, except for your own use. This applies to photocopying the magazine itself or making copies of 
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** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability can be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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I *** SPECIAL OFFER TO NEW READERS AND READERS RENEWING THEIR SUBSCRIPTION *** 
*** SOFTWARE L IBRARY, VALUED AT OVER $100 - FREE ! ! ! *** | 

MICRO— 80 has developed a new Library of Software consisting of 7 programs and a comprehensive user manual. The 
Software Library, on cassette, will be sent FREE to every new subscriber and to every subscriber who renews hissub- 
scription for another 12 months. Disk subscribers will receive their Software Library on a diskette. The new Software 
Library contains the following Level II/Disk Programs. All programs will also operate on the Model III. 

Poker , >, 

Play poker againstyour computer, complete with realistic gtaphics-rn’s 


Improved Household Accounts 

Version 3.0 of this useful program. One or two bugs lemoved 
and easier data entry. This program is powerful enough xo' be 
used by a small business. r 

80 Composer j 

A music generating program which enables you to play music via 
your cassette cord and to save the music data to tape. This.is.an 
improved version of the program published in Issue 17 of Micro— 

80. 


Level I in Level II 

Convert your Level II TRS— 80 or System 80 to operate as a 
Level I machine. Opens a whole new library of software for your 
use. 

Copier 

Copies Level II System tapes, irrespective of where they load in 
memory. Copes with multiple ORG programs. 

Z80 MOM 

A low memory, machine language monitor which enables you to 
insert OP codes, edit memory, punch system tapes etc.. 


Cube 

An ingenious representation of the popular Rubicks cube game 
for Disk users. 
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" ***** 'EDITORIAL’ ***** 

This issue heralds the commencement of MICRO-80 1 s third year of publication. In the past two 
g years we have changed a lot and so have our readers and their interests. Two years ago, the 
TRS-80 was still qf airly new in Australia and the System 80/Video Genie had been well heralded 
but had failed to materialise. The majority of TRS-80 owners used L2/16K cassette-based systems 
with a sizeable minority using L1/4K systems. Disk-based systems were a comparative rarity. 

■ In the U.K. the TRS-80 was far behind the Commodore PET in popularity and there were probably 
not many more owners of TRS-80 's in the whole of the U.K. than; in Australia. 

Now, two years later, we find a very cdjfferept -story. cr ^Ift 3 Australia, owners of Level 1/4K TRS- 
80 's are in a small minority, L2/16K cassette-based systems are probably still in the majority 
. but a very large proportion of readers now use systems having one or more disk drives. The 
: System 80/Video Genie has arrived and many thousands have been bought by enthusiastic newcomers 
to microcomputing. The Model III TRS-80 is growing in popularity although its owners still 

I represent a fairly small minority of TRS-80 users. In the U.K., the Video Genie has proven 
: very popular indeed and may have exceeded the TRS-80 in sales. The Model III TRS-80 too, is 
I reportedly proving very popular. nr V! 

' The effect of j§|l this on MiCRd-^ Cis that ’those j j^^,cs^ ; ; who have been with us for two years 
?|now have a great deal of experi^pd^ntf * expert^ Sfiy ’ifgSe looking for more advanced articles 
| and programs, particularly for dd^-systems. Those new readers who have only just acquired 
g their systems are looking to us to support' Them with elementary articles, hints and tips etc. 
I Some System 80/Video Genie owners feel that we treat them as second class citizens; some Model 
|III owners feel that we completely ignore them. Everyone is unhappy about our late production 
I of the magazine^ So, what are we going to do to meet the challenges of the next 12 months and 
| make sure that we satisfy the needs of all our readers? The answer is, a great deal. Over 
ithe next few mppths we will be introducing a number qf-,f 4 ifferent departments into MICRO-80 to 
f| cater for the different interests of our readers. There will be a department devoted to disk 
|| users and another devoted to the Model III. We do not intend to differentiate between the TRS- 
|80 Model I ancf the System 80/Video Genie, however, because despite minor differences, these 
| are essentially the same system. Later in the year, we will be adding a Colour Computer Department 
^whioh-a^wiTTs eatepsTT)r5^he^»r^eentTy^sa^easfids:iil^80^^Tx»i»^j"Computer and the Hitachi Peach, both 
I of which use the 6809 microprocessor and MICROSOFT BASIC interpreter. As an earnest of our 
|g intentions, developing the new software library 

I to be sent free to every new subscriber and ever^ reader who renews his subscription (from 
| this issue on). The programs i rf §3 l^a^ TRfih TRS-80 Models I and III, the System 
1 80/Video Genie and disk systems as well as cassette systems. Some of the utilities in this 
| library are hbt^ aVaT labl e fdrrthfeLftodefT iTTTMrh THrt&nc¥£$T 5 Trny price. 


ENCHANCEMENTS TO THE MODEL II. 


Recently, an enhanced version of the' TRS-flltT MOdbf 1 "Ti' microcomputer was announced in the U.S.A. 
|Known as the Model l§* a tips jnfuphipe ,rtnqor]pg£at;§s v % CPU board using the Motorola 68000 
fchip , in addition to 5 the' standard' Z&OA* Cl% of fl ‘tiie ' ModeT' t IV For just under $6000 US. Americans 
Ifwill be able to purchase the model 16 with 128K of RAM expandable at additional cost up to 51 6K. 
§A 10 megabyte hard disk has also been annoyricfed^fort this machine and it is possible to connect 
Iftwo dumb terminals to it. Existing owners of Model II machines will be able to purchase an 
lupgrade kit consi sting SofAthe. 68000TCPU boartl whffchApliigsi difectly into one of the vacant sockets 
linside the cabinet. 


Based on our own experiences with the Model IT, we are becoming more and more convinced that 
this is one of the most underrated business machines available today. We know of several salesmen 
working for specialist word processing organisations who privately admit that the Model II with 
fScripfit is superior to their own machines at about half the price! The Model 16 is sure to 
Abe an even more formidable contender than the Model II. Anyone who is considering spending $6000 - 
$12000 on a business computer could do much worse than purchase a Model II. 

RUMOUR-SQUASHING DEPARTMENT. 

For some time now* there have been persistent rumours that Tandy has dropped the expansion interface 
for the Model I from the Australian market. We checked this out with Mai Williams - Computer 
Marketing Manager at Tandy. Mai was adamant that this is not so. Indeed, at the time we called 
him, he was in the process of ordering more from the U.S.A. What has been dropped is the L1/4K 
TRS-80 Model I. 


LOWER-CASE IN NEW TRS-80 MODEL' I. * 

The TRS-80 Model I has recently undergone a minor redesign^ The main reason was that the 21L02A 
IC s used as video RAM have become;; 0 b sol ete and are no longer manufactured. Instead, they have 
Abeen replaced with two 2114 IC's. The significance of this is that the 2114 is arranged as 

;1K by 4 bits so the two chips give a video RAM of. IK by 8 bits whereas previously, the machine 

• had only IK by 7 bits as standard:. . Aji important part of any lower-case modification was the 
addition of an extra : 21L02A videOriRAM chip to increase the video RAM to IK by 8 bits. This 
modi ftcrtixjn^ is^^^no^rlonger^s neic^essaryrt-to obtain lower-case. A further rationalization carried 
out' has been to drop the earlier 'character generator and 1 use only the more recent one which 
contains proper lower-case characters. If : ^ou have one of these recent machines, all you need 
do to obtain correct lower-case characters in BASIC, is to load a machine language lower-case 

driver routine such as that published on page 29, Issue 18 of MICRO-80. A word processor program 

such as SCRIPSIT will automatically enable the lower-case. 


CONTINUED ON PAGE 8 
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***** REVIEW OF THE TRS-80 COLOUR COMPUTER ***** 

The major part of this review was written by Rob Glanville of Victoria who imported his own 

Colour Computer from the U.S.A. some time ago. Rob previously used a TRS-80 Model I and is 
an avid games enthusiast. Before handing over to Rob, we will record our own impressions of 
the Colour Computer and, more importantly, its position relative to other computers which are 
available. 

The TRS-80 Colour Computer is a TRS-80 in name and livery only. In all other respects it is 
completely different from the other computers which share the name TRS-80. No attempt has been 
made to provide compatibility or program interchange with the Model I or Model III. Why has 

Tandy taken this approach? 

Tandy did not tell us (to be fair, we didn't ask the question in those terms) but it is not 

too difficult to work out. There has been a lot of requests for high resolution colour graphics 
from Model I and III owners but the hardware and memory mapping of this machine preclude a simple, 
economical solution to the problem. Equally, many people have been buying video games machines 
which have become more and more intelligent, culminating in the Atari 400 and 800 microcomputers. 
Tandy has obviously seen an opportunity to enter a new market - the super -intelligent video 
games machine. Model I and Model III owners will have to make a choice. Do they want to stay 
with their more powerful (in computing terms) more expandable systems and put up with low resolution 
monochrome graphics, or would they prefer the high resolution colour graphics display of the 

Colour Computer, knowing that it will never be capable of all the serious uses to which the 

Model I/Model III can be put. 

The latter is an important point. In our opinion, the Colour Computer will never be seriously 
used as a word processor for example, or for any application requiring the input of large amounts 
of data. The keyboard is too much like a calculator for the former and there is no numeric 
keypad available or projected. Add to that a display of 16 lines of only 32 characters each 
and lower-case indicated by upper-case letters with colours reversed, and you will understand 

why we say what we do. Nor does Tandy suggest that the Colour Computer should be used in business- 

type applications. They have the Models II and III for that. 

So, the choice is yours, if you want a true home computer which will be lots of fun for the 
family (it has to be because whilst you are using it the colour T.V. is tied up!) using packaged 
software, but which will allow you to write your own programs and learn programming in BASIC, 

then the Colour Computer could be just right for you. On the other hand, if you are the type 
who frowns on the use of computers for playing games (and many do) or who would like to use 
your computer as a word processor or for stock control, etc. etc., then you would be better 
off opting for a Model II or III as far as the Tandy range is concerned. 

Now, over to Rob for some more details of the Colour Computer. 

The keyboard unit of the TRS-80 Colour Computer measures 375mm long x 350mm deep. The keys 

are of a plastic calculator type coloured grey, control keys are white and break key is red. 

The keyboard unit is coloured 'Tandy' silver. The computer is quite light, apparently 80% 

less IC's are used, compared with the Model I. At the right side of the unit is the cartridge 
slot for use with Tandy's 'Program Paks'. The back of the computer has reset button, AC cord, 

channel selector, video output (RF Modulated), cassette jack, RS232 serial Interface, 2 joystick 
jacks and power switch. 

The basic Colour Computer comes with one (1) programming manual, but if Extended Basic is installed, 
two (2) manuals are included. Both manuals are lighthearted, entertaining and most importantly 
teach you about this quite different TRS-80. Plenty of do-it-yourself type exercises and sample 
programs are provided to show this machine's capabilities. 

On power up the screen clears to the default colour of green and message below appears: 

EXTENDED COLOR BASIC 1.0 
COPYRIGHT (C) 1980 BY TANDY 
UNDER LICENSE FROM MICROSOFT 
OK 

The cursor is constantly cycling through the nine (9) colours, which are black, green, yellow, 
blue, red, buff, cyan, magenta and orange. The unit powers up in 'caps lock' position. Type 
shift 0 and typewriter style operation is obtained. Lower case letters are displayed as inverse 
capitals, i.e. green letters on black background. The display is 32 characters per row x 16 

columns. This makes text easy to read. 

The standard unit has 8K of Read Only Memory (ROM) which is quite useful, but Extended Color 
Basic, which is an additional 8K ROM circuit, makes this computer much more flexible and easy 
to use with Simple Basic statements. Standard Color Basic has 'set' graphics of 64 x 32 resolution. 
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Higher resolution graphics are obtainable, but could prove confusing to the first time user. 
Graphics Extended Basic Only: 

There are several PMODEs (degrees of resolution) to choose from. These are: 


PMODE 0 
1 
2 

3 

4 


128 x 96 Two Colours 
128 x 96 Four Colours 
128 x 192 Two Colours 
128 x 192 Four Colours 
256 x 192 Two Colours 


1 page 

2 pages 
2 pages 
4 pages 
4 pages 


Colour sets available are: 


PMODE# 

SCREEN 

TWO COLOUR 

FOUR COLOUR 

4 

0 

Black/Green 

- 


1 

Black/buff 

- 

3 

0 


Green, Yellow, Blue, Red 




Buff, Cyan, Magenta, Orange. 

2 

0 

Black/Green 



1 

Black/Buff 


1 

0 


Green, Yellow, Blue Red. 


1 


Buff, Cyan, Magenta, Orange. 

0 

0 

Black/Green 



1 

Black/Buff 



RAM for graphics is allocated by the PCLEAR N statement. N is number of pages to be cleared. 
Each page is 1536 bytes. All graphics are plotted on a 256 x 192 pixel matric. Example: - 

10 PCLEAR 4 : ' Clear 4 pages of RAM. 

20 PCLS : 1 Clear graphic pages to background colour. 

30 FMODE 3,1 : 1 Select resolution required. 

40 SCREEN 1,0: ' 1 Selects graphic screen, 0 selects colour set. 

50 PSET (128,96,2) : ' Sets 1 pixel at centre of the screen, yellow in colour. 

60 GOTO 60 : 1 Loop forever. 

The command PRESET turns off pixels which were previouslyu PSET. 

LINE : Draws a line from (XI, Y1 ) - (X2, Y2), PSET. 

Example: - 

Line (0,0) - (225,191 ), PSET would draw a line from top left corner of screen to bottom right 
corner. This statement could also include * B' to draw a box and/or 'F' to fill the box with 
colour. 

CIRCLE : Syntax is (X, Y),r, c, hw, start, end. 

X,Y is co-ordinate for centre of circle, 
r specifies radius of circle. 

c Specifies colour (dependent on colour set chosen), 

hw Specifies height/width ratio - numeric from 1 to 255. 

Start Specifies start point of circle, 0-1. 

End Specifies end point of circle, 0-1. 

DRAW : "String". 

Motion Commands: 

M Move draw position. 

U Up. 

D Down . 

L Left. 

R Right. 

E 45° Angle. 

F 135° Angle. 

G 225° Angle. 
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DRAW : "String" continued.. 

Motion Commands: 

H 315° Angle. 

X Execute a substring and return. 

Modes : 

C Colour. 

A Angle. 

S Scale. 

Options : 

N No update of draw position. 

B Blank. Used to prefix Move, also for blank lines. 

Example: 

DRAW "BM0,0; R255;D191 ;L255;U191". 

This would DRAW a line starting at top left corner, continuing around screen border. 

NOTE - Since text characters cannot be shown on the graphics screen, the DRAW command can be 
used to DRAW the text. 

Substrings can be executed as follows: 

10 PMODE 3,1 

20 PCLS 

30 PCLS 

40 A$ = "BM128,96;U25;R25;D25;L25" . 

50 DRAW "BM95,50;U25;XA$;D25;L25" . 

60 GOTO 60. 

All substrings must be prefixed with X. The semi colon after the xy start point is compulsory, 
while semi colons separating movement commands are optional, but usually included for legibility. 

GET/PUT: 

This is the fastest way to move things around on the graphics screen. It works like this: 

1st. Define area required as an array (maximum 1,400 elements). 

2nd. DRAW (or otherwise) your shape to be moved. 

3rd. GET (label) the area of memory (screen location). 

4th. Clear graphics screen or draw blanks. 

5th. Put the array back on the screen in destination stated. 

EXAMPLE: 


10 PCLEAR 4 

20 PMODE 3,1 

30 PCLS 

40 SCREEN 1, 1 

50 DIM V (20, 20): Dimension array for use. 

60 CIRCLE(20, 20), 10 

70 GET (10, 10) - (30, 30), V:' Label array with area of screen. 

80 PCLS 

90 FOR PAUSE = 1 to 300 : NEXT PAUSE. 

100 PUT (110, 110) - (130, 130), V:' PUT circle elsewhere. 

110 FOR PAUSE = 1 to 300 : NEXT PAUSE. 

120 GOTO 120 :' loop forever. 

This program DRAWs a circle at position 10, 10 then clears the screen and PUTs the circle back 
at position 110, 110. 

PLAY: 

Forget machine language subroutines and POKEing sounds, durations etc. Now you can PLAY all 
sorts of notes and sounds. PLAY notes from A-G over 5 octaves including flats and sharps. 

Length of notes can vary from 1 which is a whole note up to 1 /255th of a note. Tempo can be 

set from 1 up to 255. Volume is software selectable with 30 levels. Rests are available with 
durations same as length of notes. Substrings can be executed as in DRAW. 

Back to more mundane commands. RENUM is functionally the same as the utility program available 


CONTINUED ON PAGE 8 
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***** INDEX DECEMBER 1980 TO NOVEMBER 1981 INCLUSIVE ***** 


SOFTWARE 



PAGE 

ACTIVE FILTER 

L2/16K 

Dec 80 

23 

ADVENTURE IN MURGLE 

L1/4K 

Apr 81 

11 

AGEING RELATIVELY 

L2/4K 

Mar 81 

16 

ALPHABETICAL LISTING 

L1/4K 

Dec 80 

21 

ARITHMETIC 

L1/4K 

May 81 

7 

ASTRONOMY 1.0 

L2/16K 

Feb 81 

21 

+ microbug 


Oct 81 

14 

ATOMIC TABLES 

L2/16K 

Nov 81 

23 

ATTACK DB/L2/16K 

Nov 81 

13 

AUTOMATIC CHESS BOARD 

L2/16K 

Jan 81 

14 

BASIC ARRAY SAVER/ 




LOADER 

L2/4K 

Sep 81 

25 

BASIC LINE REF. 




VALIDATOR 

L2/4K 

Nov 81 

15 

BASIC MEMORY DUMPER 

L2/4K 

Mar 81 

11 

BIG LETTERS 

L2/16K 

Aug 81 

21 

BINARY CONVERTER 

L2/4K 

Aug 81 

4 

BIRTHDAY 

L1/4K 

Aug 81 

13 

BINGO 

L2/4K 

July 81 

26 

BLOWFLY 

L2/4K 

July 81 

14 

BONES 

L2/4K 

May 81 

23 

BOWLING 

L2/4K 

Mar 81 

26 

BREAKOUT 

L1/4K 

June 81 

14 

CELLAR CONTROL 

L2/16K 

Jan 81 

21 

CHEQUE BOOK DATA FILE 

L1/4K 

July 81 

12 

CHESS BOARD (AUTOMATIC) 

L2/16K 

Jan 81 

14 

CHORD PRACTICE 

L2/4K 

June 81 

25 

80-C0MP0SER 

L2/16K 

Apr 81 

24 

+ microbug 


July 81 

9 

CONVERSIONS (metric) 

L2/4K 

July 81 

22 

COSMIC WARS 

DB/32K 

Aug 81 

27 

COPYCAST 

L2/16K 

Mar 81 

13 

CWORD 

L2/4K 

Jan 81 

13 

DISASSEMBLER 

L2/16K 

May 81 

11 

DISK INDEX 

DB/16K 

July 81 

32 

+ microbug 




DOG RACE 

L2/4K 

June 81 

27 

FINANCE 

L1/4K 

Mar 81 

21 

+ microbug 


May 81 

2 

FRUSTRATION 

L1/4K 

Apr 81 

13 

GRAND PRIX 

L2/16K 

Apr 81 

22 

GRAPHIC UTILITY 

L2/m.l. 

Dec 80 

31 

GENIUS 

L2/16K 

July 81 

27 

GUZINTA 

L1/4K 

Aug 81 

11 

INPUT CHECKING 




(Better Basic 3) 

L2 

July 81 

5 

INTERCEPT 

L1/4K 

June 81 

16 

JOYSTICK SOFTWARE 




DRIVERS 

L2 

Nov 81 

3 

KEYNOTE 

L1/4K 

Feb 81 

12 

LIFE AT 7000H 

L2 

Jan 81 

23 

LINEAR REGRESSION 

L2/4K 

Aug 81 

15 

LINE INPUT FOR L2 




(Better Basic 3) 

L2 

July 81 

5 

LIST DISABLE 

L2/4K 

June 81 

28 

LOWER CASE DRIVER 




FOR E.S.F. 


Sep 81 

28 

MATURITY TEST 

L1/4K 

Jan 81 

11 

(METRIC) CONVERSIONS 

L2/4K 

July 81 

22 

METRIC TIME 

L2/4K 

Apr 81 

23 

MICROHEX 

L2/4K 

Feb 81 

15 

MILEAGE CALCULATOR 

L2/4K 

July 81 

15 


MORSE CODE DECODER 

L2/4K 

Oct 81 

MOVIE 

m.l . 

Sep 81 

MUGWUMP 

MULTIPLE REGRESSION 

L2/4K 

Dec 80 

ANALYSIS 

L2/16K 

Nov 81 

MURDER 

L2/16K 

Feb 81 

NORMAL DISTRIBUTION 

L2/16K 

May 81 

PAYROLL 

L2/16K 

Apr 81 

PHILATELIC ADVISER 

L2/16K 

May 81 

PINBALL 

L1/4K 

Feb 80 

POKER 

L2/16K 

Oct 81 

PRIME GENERATOR 

m.l . 

June 81 

PSYCHIC MASTER 

L2/16K 

June 81 

PUT 

m.l ./4K 

Oct 81 

REMOVING LINEAR BRACKETS L1/4K 

Mar 81 

+ microbug 


May 81 

ROVING TARGETS 

L1/4K 

Sep 81 

SEA WOLF 

L2/4K 

Feb 81 

+ microbug 


Mar 81 

SEMAPHORE 

SETTING NON-GRAPHIC 

L2/4K 

Sep 81 

CHARACTERS 

L2 

Apr 81 

SHARE CHARTING 

L2/16K 

June 81 

SHARE GRAPH 

L1/4K 

July 81 

SHARE TRANSACTION COSTS 

L2/4K 

June 81 

SHIFT LOCK 

m.l ./16K Oct 81 

SHOOTING GALLERY 

L1/4K 

Jan 81 

SHORTEN 

m.l/32K/DB Oct 81 

SOLITAIRE 

L2/16K 

Sep 81 

SORTING 

L1/4K 

May 81 

SORT/MERGE (BUBBLE) 
SOUND EFFECTS REVISITED 

L2 

Nov 81 

(OR $TRING$ & THINGS) 

L2/16K 

Sep 81 

STAR SHOOT 

L2/4K 

July 81 

SUPER SIZZLER MICROBUG 

- 

Oct 81 

SYSMON (BMON + SYSCOPY) 

- 

Mar 81 

TABLES TESTER 

L2/4K 

Mar 81 

TBUG UPDATE 

L2/m.l . 

Feb 81 

TENNIS 

L2/4K/m.l . 

Jan 81 

TEXT TYPER 

L2/16K 

Nov 81 

THREE BILLY GOATS GRUFF 

L2/16K 

Sep 81 

TIC-TAC-TOE 

L1/16K 

Nov 81 

TOWERS OF HANOI 

L2/16K 

Nov 81 

TWELVE HOUR CLOCK 

L2/4K/m.l . 

May 81 

UNIVERSAL LOWER CASE 

DRIVER ROUTINES 


May 81 

UTIL 1 : 2 : 3 : 4 

L2/m.l . 

Aug 81 

+ microbug 


Oct 81 

VARIABLES WORKSHEET 

L2/16K 

Apr 81 

VICTORY AT BATHURST 

L2/16K 

Mar 81 

+ microbug 


May 81 

WELL CLIMBER 

L2/4K 

Dec 80 

WORLD TIME 

L2/16K 

Dec 80 

HARDWARE 

Mod. for System 80 cassette 

June 81 

Using TRS80 sound programs on a 


System 80 


June 81 

Joysticks and I/O ports 

- Part 1 

July 81 

Joysticks and I/O ports 

- Part 2 

Aug 81 

Joysticks and I/O ports 

- Part 3 

Oct 81 

Joysticks and I/O ports 
(software drivers) 

- Part 4 

Nov 81 
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Part 1 Strings 

May 81 

3 

Loading m.l. programs from tape 

Part 2 Arrays 

June 81 

2 

into System 80 

Dec 80 

+ microbug 

July 81 

9 

Talking your programs in 

Dec 80 

Part 3 Checking input 

July 81 

3 

Mods, to System 80 problems 

Dec 80 

Part 4 Screen formatting 

Aug 81 

5 

CTR.41 speeding up 

Dec 80 

Part 5 Assembly 

Sep 81 

3 

Accepting programs on E.S.F 


Part 6 More assembly/BASIC 

Oct 81 

3 

wafers 

Feb 81 




E.S.F. compatible with Tandy 


E.S.F. FORUM 



disk drives 

Feb 81 




Hardware mod. for System 80 


Care, cleaning and crashes 

Feb 81 

6 

cassette 

June 81 

Recovery of damaged wafers 

Feb 81 

7 

String "garbage collection" 


Hardware hints 

June 81 

8 

routine 

Aug 81 

Parameters for saving m.l. 



Computer aided design 

Oct 81 

to wafer 

June 81 

8 

Cassette waveform improvement 

Oct 81 




Educational uses of the '80 

Oct 81 

EVALUATIONS AND REVIEWS - Hardware 







MISCELLANEOUS ARTICLES 


80-Grafix from Programma Int. 

Dec 80 

9 



Dick Smith "Sound Off" kit 

Dec 80 

14 

Index to Volume 1 

Dec 80 

Escon Selectric conversion 



Disk drives questions and 


+ TASP 

Jan 81 

3 

answers - Pt.2 DOS types 

Dec 80 

Escon Selectric conversion 



Superdos forum - chaining. 


+ SCRIPSIT 

Jan 81 

4 

zaps 

Dec 80 

TRS-80 Model III 

Feb 81 

2 

Writing programs with sound Mar 81 

Upper/lower case for 



for publication 


Sys80/PMC/V.G. 

Apr 81 

10 

For disk beginners - upgrading 




L2 programs for disk use 

Mar 81 

EVALUATIONS AND REVIEWS - Software 


Why wasn't I told 





(m.l. uses) 

Mar 81 

Microsoft Editor/Assembler 



Peeking (U.K.) 

May 81 

Plus 

Dec 80 

11 

Peeking (U.K.) 

Aug 81 

'Count' Adventure 

Dec 80 

14 

Using L2 programs from disk Aug 81 

TASP Word processor (with 



Reversing the role of PRINT 


Escon) 

Jan 81 

3 

& LPRINT 

Aug 81 

Simutek One 

Mar 81 

3 

Theory & techniques of 


Dunjonquest 

Mar 81 

4 

sorting - Part 1 

Sep 81 

Percom OS. 80 Disk Operating 



Theory & techniques of 


System 

Mar 81 

7 

sorting - Part 2 

Nov 81 

Programs for Primary Schools 

Apr 81 

3 



(Number matcher. Maths 





exerciser & spelling test) 





Toolkit 

Apr 81 

4 



Zchess 

Apr 81 

5 



Xedit 

Apr 81 

7 



Scripsit word processor 

Apr 81 

9 



MICROBUGS 





Mighty Mormar bugs 

Dec 80 

12 



Syscopy/BMON Clashes 

Dec 80 

12 



More about Sysmon 

Mar 81 

5 



System 80 program alterations 

Jan 81 

7 



- Sound effects (July 80) 

Jan 81 

7 



- Keyboard bleeper (Nov 80) 

Jan 81 

7 



- Draw 2 

Jan 81 

7 



- Sound program (July 80) 

Jan 81 

7 



KBFIX line missing 

Feb 81 

7,8 



Sea Wolf - program line 0 

Mar 81 

10 



Financing 

May 81 

2 



Removing linear brackets 

May 81 

2 



Victory at Bathurst 

May 81 

2 



80-Composer 

July 81 

9 



Better Basic programming 





- Part 2 

July 81 

9 



Super sizzler 

Oct 81 

14 



Astronomy 

Oct 81 

14 



Util 1 : 2 : 3 : 4 

Oct 81 

14 




INPUT/OUTPUT (Letters to the Editor) 


Level 1 + Level 2 mod. with 

2 chips Dec 80 7 
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CONTINUED FROM PAGE 5 

for the Model I. INSTR allows the user to search a string for a specified target section. 
DEFUSR is included as is HEX$. Many Level III commands are implemented in Extended Color Basic. 

Joysticks are 'read' by the JOYSTIK command. Another way is to EXECute HEX A00A and PEEK the 
values stored in (left joystick) Up/Down 15A, Right/Left 15B, (right joystick) Up/Down 15C, 
Right/Left 15D. 

The processor used in the Colour Computer is a Motorola MC 6809 E running at slightly less than 
• 9Mhz . To increase the processor speed try POKE 65495,0. The cursor will immediately start 

flashing more quickly. Do not use cassette I/O, SOUND or PLAY commands. These sound generation 
commands will not sound the way you planned. The MC6809 E processor is one of the most powerful 
8 bit micro-processors available with several 16 bit operations. For very complete and thorough 
discussion regarding the construction, hardware design I suggest you read "BYTE' March 1981 
issue. This article also shows requirements for building your own ROM paks. 

Cassette operation on the Colour Computer is different to the Model I in that OPEN and CLOSE 
are used for data files. Transfer of cassette information is at a fast and reliable 1500 baud. 

Available Software : 

Radio Shack have several cartridges available. All these are aimed squarely at the home user, 
and are quite 'idiot proofed' for this purpose. 

Cartridges I have and can recoiranend from experience are :- 

1. Diagnostic Pak - this is fine for testing your new and shiny Colour Computer, but apart 
from that. . . 

2. Pinball - has a built in playing field which is not very exciting. BUT you can create 
your own design using the joysticks and save your masterpiece onto cassette" tape for future 
reloading. Tilt function and extra ball are included in this well -designed package. 

3. Quaser Commander - is a space 'Seek and Destroy' type game with 3-dimensional aspect to 
the display. The enemy can be stationary or try to escape. You can put your craft on 
'auto pilot', view the radar, vary your throttle setting, kill, destroy - marvellous! If you 
liked Instant Software's Cosmic Patrol, you will love QUASER. 

4. Football - is American grid iron game for two players each controlling their own team. 
Offensive and defensive plays are included. The animation is very good with men running 
all over the screen. 

5. Dino Wars - is a two player game. Each player controls his/her dinosaur trying to sneak 
up behind his/her opponent and bite the enemy on the neck. Graphics are superb as are 
the sound effects. Suggest for kids 8 to 80. This game is highly recommended. Great 
for giving the wife a beating etc... 

Several more cartridges are available and more are being released soon. Software is available 
from independant sources. One warning: Be careful what you buy as there is some low quality 

material around. I know - I have bought some real junk. But, in amongst the junk, there are 
some brilliant games - Asteroids, Invaders, Adventure etc. available in the U.S.A. Many utilities/ 
programming aids are also available - monitors, editor/assemblers etc. 

Conclusion : 

I heartily recommend this machine as a home computer. For games enthusiasts like myself it 
is exceptional. With unlimited expansion capabilities via the cartridge slot, the user can 

expect many products, languages etc. in the future. 

PRICES : 

The following is a list of prices for the TRS-80 Colour Computer in Australia: 


Basic Colour Computer with 4K RAM $599.00 

Colour Computer with Extended Colour BASIC 16K RAM $849.00 

Colour Computer with Extended Colour BASIC 32K RAM $1,029.00 

Pair of joysticks $39.95 

Disk drive 0 $699.00 

Disk drives 1, 2 and 3 $499.00 

ROMpaks $39.95 - $59.95 


CONTINUED FROM PAGE 2 

To test whether your machine has lower-case, type in POKE 15872,97 ENTER/NEWLINE ^ . A lower- 
case a should be printed near the centre of the screen. If it is, then you only need a lower- 
case driver program to obtain lower-case in BASIC. If an upper-case A is printed then you will 
need a hardware modification such as that available from MICRO-80. 
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***** A WORD FROM THE SOFTWARE EDITOR - by Charlie Bartlett ***** 

Due to the Christmas break, combined with a higher than normal receipt of software, the software 
department now has a severe backlog of software to examine. If you sent in software just before 
Christmas, (early December onwards) don't panic - it will be several weeks before you hear anything. 

I also get enquiries from readers who have had software accepted for publication several months 
ago, and who are (naturally) wondering if and when their program will be published. As, at 
the time of writing, I have enough programs on hand for about 9 months and couple that with 
the need to balance the content of the magazine, you can see that programs very rarely get accepted 
and published in the space of a few weeks. As I said above, the content of the magazine has 
to be balanced. You might, for instance, send in a very, very, very good program dealing with, 
say, XLOTTO. (It would HAVE to be good). To take XLOTTO as an example I have three XLOTTO 
programs that are GOOD and deal with the subject in interesting and different ways. If I included 
each XLOTTO in, say, three issues, one after the other, that would be very boring, no matter 
how good each program is. So I space them well apart, which gives you the variety but, of course, 
leaves the author wondering when his program will appear. There are exceptions of course. 
If you send in something that is either very original, very useful or just happens to achieve 
the balance of content that we are looking for, for a particular issue, then you come to the 
top of the pile. 

So if you have been sitting on the edge of your seat waiting to see your program in print - 
don't. Sit back and relax. It WILL appear! We haven't forgotten you and we haven't lost it. 

- 0000000000 - 


★ ★ SOFTWARE SECTION ★ ★ 


***** TRIANGLE SOLUTIONS LI/4K - by B. Smith ***** 

This program is designed to calculate unknown sides, angles and area of any triangle. In all 
cases side "SI" must be known and at least two other variables (sides or angles). Conversion 
from degrees, minutes and seconds to decimal degrees can be carried out on screen. 

As the calculations call for numerous trigonometric functions, and as these are not inherent 
in level I ROM's, a call to Tandy's subroutines at line 30000 is required. 

It calculates all unknowns quickly and, in some cases, two solutions whenever doubt exists if 
opposite angles are acute or obtuse. 

This program should be handy to anyone who requires areas for concrete pours, builder for roof 
truss lengths or the student to check homework calculations. 

Instructions start at line 2500; triangle drawing at line 2010; input questions line 100; triangle 
solutions at line 350 and trigonometric functions at line 30000. 


1 REM# TRIANGLE SOLUTIONS FOR THE TRS-80, LEVEL 1,16 K* 

2 REM t DESIGNED BY BRUCE SMITH * 

3 REM * OF 7 INNES STREET ALBANY W.A.* 

4 REM * APPROXIMATELY 8 K OF RAM IS USED t 
10 CLS 

20 P . A . 27 O , " TRIANGLE SOLUTIONS. ..... " 

30 P» A. 326 „ "DO YOU REQUIRE INSTRUCTIONS. (YES = 1 , NO = 2) " ; : IN. Z 
40 IFZ=1G0S. 2500 
45 GOS. 2010 

100 P. A. 385, "LENGTH OF SIDE SI =" ; : I . As IFA=OT. 103 

101 IFAC0T.300 

102 P» A. 418, "=";AzG. 105 

103 CLSsP. A.533, "SIDE SI MUST BE KNOWN " : F . N= 1 T02000 : N . N : G . 45 

105 P. A. 449, "ANGLE A1 = " ; ; I . B: IFB=OT. 1 12 

106 IFBC0T.300 

107 P. "IN D= MS (Y=1,N=2) " 5 : IN.R 

1 08 I FR= 1 GOS . 3000 s I FB >= 1 OOT .110 

109 P. A. 482, "=";BsG. Ill 

110 W=B— 1 00 jP.A. 482 , " = 100 +"?W 

111 I FB >= 1 SOT . 302 

112 P. A. 513, "LENGTH OF SIDE S2 =" ; s I . C: IFC=OT. 1 16 

113 IFCCOT. 300 
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115 P. A.546, " = ";C 

116 P. A. 577, "ANGLE A2 = " ; : I . D: IFD=OT. 123 

117 IFD<OT. 300 

118 P« " IN D« MS <Y=1,N=2> ": : IN.S 

119 I FS= 1 GOS .31 00 : IFD>=100T. 121 

120 P» A.610, "=";D:G. 122 

121 V=D—100: P.A.610, "= 100 + ";V 

122 I FD >= 1 SOT . 302 

123 P. A. 641, "LENGTH OF SIDE S3 =" ; : I . E: IFE=OT. 128 

124 IFEC0T.300 

125 IFE=OT. 128 

126 P. A. 674, "=";E 

128 P. A. 705, "ANGLE A3 =" ; : I . F: IFF=OT. 134 

129 IFFC0T.300 

130 P.'TN D.MS <Y=1,N=2> "; ; IN.T: IFT=1G0S. 3200 

131 IFF>=100T. 133 

132 P. A. 738, "=";F:G. 134 

133 U=F-100:P. A. 738, "= 100 +";U 

134 I FF >= 1 SOT . 302 

135 P.A.768," 

136 P. A. 785, "SQUARE AREA" : P- A. 802, "=" 

1 37 H=B+D+F : I FH > 1 SOT . 302 

138 H=A*E*F: IFH=OT. 140 

139 IFH>OT. 428 

140 H=A*CSE: IFH=OT. 142 

141 IFH>OT. 350 

142 H=F#A*B: IFH=OT. 144 

143 IFH>OT. 375 

144 H=A*B*D: IFH=OT. 146 

145 IFH>OT. 386 

146 H=A*B*C; IFH=OT. 148 

147 IFH>OT. 396 

148 H=A*C*D: IFH=OT. 150 

149 IFH >OT. 406 

150 H=A*C*F: IFH=0T.304 

151 IFH>OT. 437 

299 END 

300 CLS:P.A.460, "SIDES AND ANGLES CAN NOT BE LESS THAN ZERO" 

301 F . N= 1 T02000 ; N . N : G . 45 

302 CLS:P. A, 459, "ANGLES CAN NOT BE GREATER THAN 180 DEG'S" 

303 F . X= 1 T02000 : N . X : G . 45 

304 CLS 

305 P. A. 453, "I'M SORRY, YOU HAVEN'T SUPPLIED SUFFICIENT INFORMATION" 

306 F. N=1T02000: N. N: G. 45 

350 P=(A+C+E)/2 

351 Q=(P*(P-C) )/<A*E) ;X=Q: GOS. 30030: S=Y 

352 GOS. 30500: F=Y*2: IFF>=100T. 354 

353 P. A. 738, "=“;F:G.355 

354 U=F— 1 00 : P . A . 738 , " = 100 +";U 

355 0= <P* (P-A) ) / (C*E) : X=0: GOS. 30030: S=Y 

356 GOS. 30500: D=Y*2: IFD>=100T. 358 

357 P. A. 610, "=“;D:G.359 

358 V=D— 100: P. A. 610, "= 100 +";V 

359 B= 1 80— < D+F ) 

360 I FB >= 1 OOT . 362 

361 P. A. 482, "=";B:G.363 

362 W=B— 100: P» A. 482, "= 100 +";W 

363 X=F: GOS. 30370: G= (A*E*Y) /2 

364 P. A. 802, "=";G 

365 P. A. 896, "ANOTHER RUN <YES = 1, NO = 2) " ; : I . I : IFI=1T. 45 

366 P. A. 896, "WANT TO CONVERT ANGLES TO DEG'S MIN SEC. ( Y=1 , N=2) " ; : I . M 

367 I FM=2T . 30850 

368 P.A.896," 

369 P.A.896, "ANGLE = (DEG'S) "; s I. X: Y=(X— INT (X) ) *60 

370 Z= < Y— INT (Y) ) S60 

371 P. A. 925, "="; INT(X) : P. A. 931 , INT <Y) ; " ' " : P. A. 936, INT(Z) 

372 P. A. 939, "" ":P. A. 942, "AGAIN <Y=1 , N=2> " ; : I . N: IFN=1T. 368 

373 P.A.896," 

374 G. 365 

375 D=180— <F+B) : IFD>=100T. 402 

376 P. A. 610, "=";D:G.378 

377 V=D— 100: P.A.610, "= 100 +";V 

378 X=F: GOS. 30370: J=Y*A 

379 X=D: GOS. 30370: C=J/Y 

380 P. A. 546, "=";C 

381 X=F ; GOS . 30350 : K=Y* A 

382 X=D: GOS. 30350: E=C*Y 

383 E=E+K: P. A. 674, "=" ; E 
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384 X=F; GOS. 30370: 6= (YSASE) /2 

385 P. A. 802, ,, = ";G:G.365 

386 F= 1 80- ( B+D ) : I FF >= 1 OOT . 389 

387 IFD<OT. 304 

388 P. A. 738, '^"^G. 390 

389 U=F— 1 00 s P » A . 738 , " = 100 + ";U 

390 X=F: GOS. 30370; J=(YSA) 

391 X=Ds GOS. 30370: C=(J/Y) 

392 P. A. 546, ■*=*■? C 

393 X=F: GOS. 30350: K=A*Y 

394 X=D : GOS . 30350 : E=CS Y : E= ( E+K ) 

395 P. A.674, ;E:G,384 

396 X=B: GOS. 30350: J=YS2SASC 

397 E= ( ASA) + (CSC) -J: X=E: GOS. 30010 

398 E=Y ; P. A. 674, " = " ; E 

399 P= (A+C+E) /2: K= (PS (P-A) ) / (CSE) 

400 X=K: GOS. 30010: S=Y: GOS. 30500: D=Y*2: IFD>=100T. 402 

401 P. A. 610, "=";D;G.403 

402 V=D— 100: P. A. 610, "= 100 + ";V 

403 F= 1 80- ( B+D ) ; I FF< =0T . 304 : I FF >= 1 OOT . 405 

404 P. A. 738, "=";F:G.384 

405 U=F— 100: P. A, 738, "= 100 +";U:G.384 

406 J=C/A: X=D: GOS. 30370: S=YSJ; GOS. 30530: F=Y: IFF>=100T. 408 

407 P. A. 738, "= M ;F:G.409 

408 U=F— 100:P. A. 738. “= 100 + **;U 

409 B= 1 80— ( D+F ) : I FB >= 1 OOT .411 

410 P.A.482, ,, = ,, ;B:G.412 

411 W=B— 1 OO : P . A . 482 , " = 100 + H ;W 

412 X=B: GOS. 30350: X= (ASA) + (CSC) — (2SASCSY) : GOS. 30010: E=Y: P. A. 674, ,, =" ; E 

413 X=F: GOS. 30370: G= (YSASE) /2: P. A. 802, "=";G: IFA>=CT.365 

414 F=180— F:P, A. 370, "< OR >" : P. A. 434, A: P. A. 562, C: P. A. 626, D 

415 I FF >= 1 OOT .417 

416 P.A.818,F:G.418 

417 U=F— 1 00 : P . A . 75 1 , " 1 00+ " ; U 

418 B= 180- (D+F) : IFB>=100T. 420 

419 P. A, 498, B:G.421 

420 W=B— 100: P. A. 495, ” 100+” ; W 

421 X=B: GOS. 30350: X= (ASA) + (CSC) - (2SASCSY) : GOS. 30010 

422 E=Y: P, A. 690, E 

423 X=F: GOS. 30370: G= ( ASESY) /2: P. A. 818, G 

424 G. 365 

428 X=F: GOS. 30350: X= (ASA) + (ESE) - (2SASESY) 

429 GOS. 30010: C=Y; P. A. 546, "=" ; C 

430 P= (A+C+E) /2:Q= (PS (P-A) )/(CSE):X=Q 

43 1 GOS . 300 1 0 : S=Y : GOS . 30500 : D=YS2 : I FD >= 1 OOT . 433 

432 P. A. 610, ,, = ";D:G.434 

433 V=D— 100: P.A.610, "= 100 + M ;V 

434 B= 1 80- ( D+F ) : I FB >= 1 OOT . 436 

435 P. A. 482, " = M ; B: G. 363 

436 W=B— 1 00 : P . A . 482 , " = 100 +*';W;G.363 

437 P. A. 418, " = '• ; A: P. A. 546, ,, =" ; C 

438 I FF >= 1 OOT . 440 

439 P. A. 738, ,, = n ; F: G. 441 

440 U=F— 100:P. A. 738, "= 100 +“;U 

441 X=F: GOS. 30370: D=(ASY) /C: S=D: GOS. 30530: D=Y 

442 I FD >= 1 OOT . 444 

443 P. A. 610, , ‘ = ,, ;D:G.445 

444 V=D-100:P. A.610, H = 100 +";V 

445 B= 1 80- ( D+F ) : I FB >= 1 OOT . 447 

446 P. A. 482, "=" ; B: G. 448 

447 W=B— 100: P. A. 482, "= 100 +”?W 

448 X=B: GOS. 30350: X= (ASA) + (CSC) - (2SASCSY) : GOS. 30010 

449 E=Y:P. A.674, "= M sE 

450 X=F: GOS. 30370: G= (ASESY) /2:P.A.802 , "=";G 

451 IFA<=CT. 365 

452 P. A. 370, "< OR >" : P. A. 434, A: P. A. 562, C 

453 IFF MOOT. 455 

454 P. A.754,F:G.456 

455 U=F— 1 00 : P . A . 75 1 , " 1 00+ " ; U 

456 D= 1 80— D : I FD >= 1 OOT . 453 

457 P. A.626,D:G.459 

458 V=D— 1 00 : P . A . 623 , " 1 00+ " ; V 

459 B= 1 80— ( D+F ) : I FB > 1 OOT . 46 1 

460 P. A.498,B:G.462 

461 W=B— 100: P. A. 495, "lOO+'^W 

462 X=B: GOS. 30350: X= ( ASA) + (CSC) - (2SASCSY) : GOS. 30010 

463 E= Y : P . A . 690 , E 



ISSUE 25 (DECEMBER 1981) 


MICRO-80 


PAGE 12 


464 X=F: GOS. 30370; G=(Y*A*E) /2 

465 P.A.818,G:G« 365 

2010 CLS: X=0: Y=0 

2011 P. A. 273, "A3" 

2012 P. A. 148, "SI " 

2013 P. A. 29, "A1 " 

2014 P.A. 168, "S2" 

2015 P.A. 30 1 , " A2 " 

2016 P.A. 349, "S3" 

2020 F. X=40T061: Y=32-INT ( . 5*X) 

2025 IFY=2G. 2040 
2030 S. (X,Y) :N.X 

2040 F. X=61T087: Y=INT ( . 333* X > —16 
2045 IFY=13G. 2060 
2050 S. (X, Y) : N. X 

2060 F . X=82T044STEP— 2 ;Y=12:S. (X,Y);N.X 
2065 RET. 

2500 CLS 

2510 P.A. 14," TRIANGLE SOLUTIONS......" 

2520 P. "THIS PROGRAM WILL CALCULATE THE LENGTH OF UNKNOWN" 

2530 P. "SIDES, UNKNOWN ANGLES & AREA. ACCURACY AT LEAST TO TWO" 

2540 P. "DECIMAL PLACES CAN BE EXPECTED BUT WILL DIMINISH WITH" 

2550 P. "SMALLER ANGLES. " 

2560 P. "FOR SIDES OR ANGLES WHICH ARE UNKNOWN ENTER O (ZERO)." 

2570 P- "IN ALL PROBLEMS 'SI ' MUST BE KNOWN, AS WELL AS " 

2580 P . " TWO OTHER SIDES OR ANGLES." 

2590 P- "A PERIOD MUST BE USED AFTER THE NUMBER OF WHOLE DEGREE'S," 
2600 P, "FOR EXAMPLE 

2610 P . "112 DEG'S 13 MIN 57 SEC = 112.1357" 

2620 P- "THIS ANGLE IS THEN IN < D.MS > (DEG'S .MIN SEC). THE" 

2630 P. "COMPUTER WILL THEN CONVERT THE ANGLES TO DECIMAL DEGREE'S." 

2640 P. "OUTPUT IS ALSO IN DECIMAL DEG'S BUT CAN BE CONVERTED TO" 
2650 P. "D. MS ON THE SCREEN." 

2660 I. "PRESS < ENTER > TO RUN"; A* 

2670 RET. 

3000 X=INT(B) 

3001 Y=(B-X)*100 

3002 Z=(Y-INT(Y) ) *100 

3003 B= ( (Z/60) +INT (Y) ) /60+INT (B) 

3004 RET. 

3100 X=INT(D) 

3101 Y= (D— X) *100 

3102 Z= ( Y— INT ( Y) ) * 100 

3103 D=( (Z/60) +INT(Y) ) /60+INT (D) 

3104 RET. 

3200 X=INT(F) 

3201 Y= (F— X) *100 

3202 Z=(Y-INT(Y) ) *100 

3203 F=( (Z/60) +INT(Y) ) /60+INT (F) 

3204 RET. 

5000 IFR>OG. 5010 

5005 P . " WHAT .THIS ANGLE I S LESS THAN O " : F . N= 1 T030O0 : N . N 

5006 RET. 

5010 S=R:S=S*100:S=S-INT(S) :S=S/60 

5020 P. "S=" ; S: F. N=1T03000: N. N: RET 
30000 E. 

30010 REM *SQUARE ROOT* IN. X, OUT Y 
30020 REM ALSO USES W & Z INTERNALLY 
30030 IF X=OT. Y=0: RET. 

30035 W=0: Z=0 

30040 IFX >0T. 30060 

30050 P. "ROOT OF NEGATIVE NUMBER ?":STOP 

30060 Y=X*.5;Z=0 

30070 W=(X/Y-Y)*.5 

30080 I F ( W=0 ) + ( W=Z ) T . RET . 

30090 Y= Y+W : Z=W : G . 30070 

30300 REM *TANGENT* IN. X IN DEG'S, OUTPUT Y 
30310 REM ALSO USES A,C,W,Z INTERNALLY 
30320 A=X : GOS . 30360 

30330 I F ABS ( Y) < 1 E~5T . P . " TANGENT UNDEF I NED " : ST . 

30340 C=Y : X=A: GOS. 30376; Y=Y/C: RET. 

30350 REM *COSINE* IN. X IN DEG'S, OUTPUT Y 

30351 REM ALSO USES W, Z INTERNALLY 

30360 W=ABS ( X ) /X : X=X+90: GOS. 30376: IF (Z=— 1 ) * (W=l ) T. Y=— Y 
30365 RET. 

30370 REM *SIN* IN.X IN DEG'S, OUTPUT Y 

30371 REM ALSO USES Z INTERNALLY 
30376 Z=ABS(X)/X:X=Z*X 
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30380 IFX>360T. X=X/360: X=(X-INT(X> ) *360 

30390 IFX >90T . X=X/90: Y=INT (X) : X=(X-Y) *90: ONYG. 30410 , 30420, 30430 
30400 X=X/57. 29578: IF ABS < X ) <2. 48616E-4 Y=0:RET. 

30405 B. 30440 
30410 X=90-X:G. 30400 

30420 X=— X: G. 30400 

30430 X=X-90:G. 30400 

30440 Y=X— X*X*X/6+X*X*X*X*X/120— X*X*X*X*X*X*X/5040 
30450 Y=Y+X*X*X*X*X*X*X*X*X/362880: IFZ=-1T. Y=-Y 

30455 RET. 

30500 REM * ARCCOS * IN. S, OUT Y,W 
30510 REM Y IS IN DEGREES, W IS IN RADIANS 
30520 GOS. 30550: Y=90-Y: W=1 . 570796-W: RET. 

30530 REM * ARCSIN * IN.S, OUT Y,W 

30535 REM Y IS IN DEGREES, W IS IN RADIANS 

30540 REM ALSO USES VARIABLES X. Z INTERNALLY 

30550 X=S: IFABS <S> <=. 707107T. 30610 

30560 X=1-S*S: IFXCOT.P.S; "IS OUT OF RANGE": STOP 

30570 W=X/2:Z=0 

30580 Y=(X/W-W>/2: IF <Y=0) + <Y=Z) T. X=W: G. 30610 

30600 W=W+ Y : Z=Y : G . 30580 

30610 Y=X+X*X*X/6+X*X*X*X*X*. 075+X*X*X*X*X*X*X*4. 464286E— 2 

30620 W= Y+X * X*X*X*X*X*X*X*X*3. 038 1 94E— 2 
30625 I FABS < S ) > . 707 1 07T . W= 1 . 570796-W 
30630 Y=W*57. 29578: RET. 

30660 REM * ARCTANGENT * IN. X , OUT C, A 
30670 REM C IS IN DEGREES. A IS IN RADIANS 
30680 REM ALSO USES B, T INTERNALLY 
30690 GOS . 308 1 0 : X= ABS ( X ) : C=0 
30700 IFX>1T.C=1:X=1/X 

30710 A=X*X 

30720 B= ( (2. 86623E— 3*A— 1 . 61657E-2) *A+4. 29096E-2) *A 

30730 B=< < < ( B— 7 . 5289E— 2 ) *A+. 106563) *A-. 142089) *A+. 199936) *A 

30740 A= ( (B— . 333332 ) * A+ 1 ) * X 

30750 I FC=1T.A= 1.570796- A 

30760 A=T*A:C=A*57. 29578: RET. 

30800 REM * SIGN * IN. X . OUT T= -1. O OR +1 

30810 IFXCOT. T=— 1 

30820 IFX=0T.T=0 

30830 IFX>0T.T=1 

30840 RET. 

30850 CLS: E. 


***** 3D MAZE L2/16K - by S. Holloway ***** 

The program produces a 3-D display of the player's position in a maze, allowing him/her to turn 
and move. The aim is to find the exit with the fewest turns, moves and looks at the map. 

Program Action 

A single two-dimensional array is used for the maze cell data. Each cell can have a value of 
0-15 (higher value is used to identify border). Each bit (1,2, 3, 8) represents a wall so 0 means 

no walls, 1 a West wall, 2 a North wall, 3 a North and a West wall and so on. 

The maze is made by making a random route until a dead end is met. Then a new route is attached 
to the first and this proceeds randomly until dead end. Another route added, and so on until 
all cells have been used. An exit is made on the South edge and the maze is complete. 

To display a correct 3-D picture of the player's position, the program rotates the cell information 
using a logical shift. A cell having a value of 11 has a West wall (1), a North wall (2) and 
a South wall (8). If the player is facing East the cell is rotated right once, i.e. 1011 becomes 

1101 or 13 - this signifies a left wall, a right wall and a well I behind which is, of course, 

not displayed. 

The 'help' routine prints a map of the maze and marks the player's position with a flashing 
'X'. The keyboard is disabled during the map display so it cannot be held longer than a set 
time. 

A hint for players is to remember the direction you are facing and remember the exit is only 
obvious when you are right next to it. 

As only 8K of memory is used there is room to add extras like random hazards and even develop 
a full adventure-type program. In this case it would be necessary to change the route-making 
section as the present method produces a simple connected maze, i.e. only one route and no 
loops. 
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PLAN OF THE NAZE 


SCORE 50 


nrurirt 

si psm| 1 I 



!Jt2j 



1 2 3 4 5 6 7 B 9 10 
YOU ARE AT ’X’ AND THE EXIT AT ’E’ - YOU ARE FACING NEST 


COMMAND? 


SCORE 498 


tcif 



10 RANDOM: REM SET ARRAY AND INSTRUCTIONS 
20 DEFINTA— Z s CLS 
30 GOSUB 2760: S= 1000 

40 DIMA (11, 11) s FQRI = i TOIO: F0RJ=1T01 0: A(I,J)=15; NEXTJ : NEXT I 

50 F0RJ=0T01 1 : A ( J, 0) =100: A < J , 1 1 ) =100: A <0, J ) =100; A < 1 1 , J ) = 100- NEXT 

J 

60 G0SUB2810 

70 REM FIND START 

SO X=RND < 10) s Y=1 s XX=X: YY=Y 

90 D=RND ( 3 ) : ONDDGOTO 1 00 ,110,120 

100 IFA <X— 1 , Y) =15THEND=1 : A <X, Y) =14: X=X— 1 : Z=4: GOTO 130 
1 10 IFA < X+l , Y) =15THEND=4: A (X, Y) =1 1 : X=X+1 : Z=2: G0T0130 
120 IFA<X,Y+1) =15THEND=8: A ( X , Y) =7; Y=Y+1 ; Z=3: GOTO 130 
130 D2=D 

140 REM BEGIN ROUTE FINDING 
150 GOSUB 170: IF F=1 THEN 390 
160 GOTO 180 

170 F=0: IFA < X + l , Y) < >1 SAND A ( X-l , Y) < > 1 5 AND A ( X , Y+l ) < > 1 SAND A < X , Y-l ) < 
> 1 5THENF= 1 : RETURNELSERETURN 

180 R=RND ( 3 ) ; IFR=1THEND1=D*2: IFD1 >8THEND1=D1/16 
190 I FR=2THEND 1 =DELSE I FR=3THEND 1 =D/2 : I FD 1 < 1 THEND 1 =8 
200 REM SET ARRAY 

210 I FD 1 =4THEN340ELSE I FD 1 = 1 THEN260ELSE I FD 1 =8THEN300ELSE220 

220 IF A ( X , Y— 1)01 5THEN 1 80 

230 IFD=2THENA ( X , Y) =5: Y=Y— 1 : GOTO 380 

240 I FD= 1 THEN A ( X , Y ) =9 : Y= Y- 1 : G0T0380 

250 I FD=4THENA (X, Y) =12: Y=Y— 1 : G0T0380 

260 IFA(X— 1,Y)< >15THEN180 

270 IFD=2THENA <X,Y)=6:X=X-1: 60T0380 

280 IFD=1THENA (X, Y) =10: X=X-1 ; G0T0380 

290 IFD=8THENA (X, Y) =12: X=X-1 : GOT0380 

300 IFA (X,Y+1)< >15THEN180 

310 I FD= 1 THEN A ( X , Y > =3 ; Y=Y+ 1 : G0T0380 

320 IFD=8THENA ( X , Y) =5; Y=Y+1 : G0T0380 

330 I FD=4THENA ( X , Y ) =6 : Y=Y+ 1 ; GOT0380 

340 IFA(X + 1,Y)< >15THEN180 

350 IFD=2THENA ( X , Y) =3: X=X+1 : G0T0380 

360 I FD=8THENA (X,Y)=9:X=X+1; G0T0380 

370 I FD=4THENA (X,Y)=10; X=X+1 : G0T0380 

380 N=N+ 1 : D=D 1 : GOTO 140 

390 REM DEAD END 

400 I FD= 1 THEN A (X,Y)=11: N=N+ 1 

410 I FD=2THEN A ( X , Y ) =7 : N=N+ 1 
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420 IFD=4THENA(X, Y)=14:N=N+1 
430 IFD=8THENA(X,Y)=13:N=N+1 
440 REM FIND SPACES 

450 F0RJ=1T010:F0RI = 1T010: IF A ( I , J ) =15THENX=I : Y=J : GOTO 470 
460 NEXTI ; NEXTJ : GOTO 520 

470 IFA(X+1, Y) >OAND A(X+1,Y)<15 THEN X=X+1 s A (X , Y) =A ( X , Y) -1 ; D=1 : X 
=X— 1 : GOTO 140 

480 IFA ( X— 1 , Y) >OANDA ( X-l , Y) < 15THENA (X— 1 , Y) =A ( X— 1 ,Y) —4; D=4s 60T014 
0 

490 IFA ( X , Y+l ) >OANDA ( X , Y+l ) < 15THENA ( X , Y+l ) =A ( X , Y+l ) -2: D=2s GOTO 1 
40 

500 IF A ( X , Y-l ) >OANDA < X , Y-l > < 15THENA < X, Y-l ) =A < X , Y-l ) -8: D=8: GOTOl 
40 

510 GOTO 460 
520 REM MAKE EXIT 

530 X 1=RND (10) ; A ( X 1 , 10) =A (XI, 10) —8 
540 X=X X : Y=YY s GOTO 880 
550 END 

560 REM DISPLAY 

570 CLS: PRINT " PLAN OF THE MAZE S 

CORE" ; S 
580 J=1 

590 1 = 1 SPRINT" " ; 1 1— J ; s IFJ=1THENPRINT" " ; ELSEPRINT" ” ; 

600 ONA ( I , J ) GOTO 620 , 630 , 640 , 650 , 660 , 670 , 680 , 690 , 700 ,710, 720 , 730 
,740,750,760 

610 PR I NTCHR$ ( 1 40 ) ; CHR* (191); CHR$ (140);; G0T0770 
620 PR I NTCHR$ ( 32 ) ; CHR* (191); CHR$ (140);: GOTO 770 
630 PR I NTCHR$ ( 140); CHR$ (188); CHR$ (140);; G0T0770 
640 PR I NTCHR$ ( 32 ) ; CHR$ (188); CHR$ (140);: G0T0770 
650 PR I NTCHR* (140); CHR$ (191); CHR$ ( 32 ) ; ; G0T0770 
660 PR I NTCHR$ ( 32 ) ; CHR$ (191); CHR$ ( 32 ) ; : G0T0770 
670 PR I NTCHR* (140); CHR* (188); CHR$ ( 32 ) ; ; G0T0770 
680 PR I NTCHR* ( 32 ) ; CHR$ (188); CHR$ ( 32 ) ; s G0T0770 
690 PR I NT CHR$ (140) ;CHR$(143) ;CHR$(140) ; s G0T0770 
700 PR I NTCHR$ ( 32 ) ; CHR$ (143); CHR$ (140);: G0T0770 
710 PR I NTCHR* (140); CHR* ( 1 40 ) ; CHR$ (140);; G0T0770 
720 PR I NTCHR$ ( 32 ) ; CHR$ (140); CHR$ (140);: G0T0770 
730 PR I NTCHR$ (140); CHR$ (143); CHR$ ( 32 ) ; s G0T0770 
740 PR I NTCHR$ ( 32 ) ; CHR* ( 143); CHR$ ( 32 ) ; : G0T0770 
750 PR I NTCHR* (140); CHR$ (140); CHR$ ( 32 ) ; : G0T0770 
760 PR I NTCHR$ ( 32 ) ; CHR* (140); CHR$ ( 32 ) ; 

770 1=1+1: IFI<=10 THEN600 

780 PRINT; J=J+1: IFJ<=10 THEN590 

790 PR I NT 37 1 5+3* X 1 , " E " 

800 PRINT" 123456789 10" 

810 PRINT" YOU ARE AT ' X' AND THE EXIT AT ’E’ - "; 

820 PR I NT "YOU ARE " ; s GOSUB 970 
830 T =50 : P 1 =PEEK ( 15371+3*X+64*Y) 

840 T=T— 1 s I FTC 1 THEN RETURN : PR I NT353 , S ; 

850 PR I NTS 1 1+3*X+64*Y, "X"; ; F0RI=1T0100: NEXTI 
860 PR I NTS 1 1+3* X+64*Y , CHR$ (Pi ) ; ; FOR I = 1 TO 1 00 ; NE X T I 
870 GOTO 840 
880 REM SET TO GO 

890 PRINT" MAZE COMPLETE" s PRINT 

900 PRINT"EX IT IS AT" ; X 1 ; "EAST, 1 NORTH" 

910 PRINT: G0SUB950 SPRINT 
920 INPUT "READY" ; Z$ 

930 GOTO 1470 

940 REM HELP ROUTINE 

950 PR I NT "YOU ARE AT" ; X ; "EAST" 

960 PR I NT " " ; 1 1 - Y ; " NORTH " 

970 PRINT" FACING " ; 

980 0NZ60T0990, 1000, 1010, 1020 
990 PR I NT " NORTH " s GOT O 1030 
1 000 PR I NT " EAST " s GOTO 1 030 
1 0 10 PR I NT " SOUTH " s GOTO 1 030 
1020 PR I NT "WEST" 

1030 RETURN 

1040 REM INPUT ROUTINE 

1050 IFSC 1THENPRINT"SQRRY - YOU RAN OUT OF POINTS ! " : END 
1060 IF Y=1 1 THEN 2740 

1070 PRINTSO, "COMMAND? "; s Z$=INKEY$s IFZ$=" "THEN 1070 

1080 IFZ$="L"THENS=S— 5s Z=Z— 1 s GOTO 1130 
1090 IFZ$="R"THENS=S— 5: Z=Z+1 ; GOTO 1130 

1100 IFZ$="H"THENS=S/2: POKE 16405, Os GOSUB 560: POKE 16405, 1:G0T0147 
O 

1110 IFZ$="F"THEN S=S~2sG0T0 1410 
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1120 PRINTS)©, "L FOR LEFT , R FOR RIGHT, F FOR FOREWARD, H FOR HELP 
" 5 » FOR 1 = 1 T02000 : NEXTI ; PRINTS>0, " 

" ? : GOTO 1070 

1130 IFZ< 1 THENZ=Z+4ELSE I FZ >4THENZ=Z-4 

1140 GOSUB 1150: GOTO 1470 

1150 REM ROTATE AND LOOK ROUTINE 

1160 IF B>10 THEN G0T01260 

1170 F=A (A, B) 

1180 IFZ=1THEN 1220 
1190 F0RI=2T0Z 

1200 F=INT <F/2) + (F-INT (F/2) *2) *8 

1210 NEXTI 

1220 C=F— INT (F/2) $2 

1230 D=INT(F/4)-INT<F/8> *2 

1240 E=INT (F/2) -INT (F/4) *2 

1250 RETURN 

1260 REM OUTSIDE 

1270 C=0:D=0:E=— 1 

1280 RETURN 

1290 REM NEXT CELL 

1300 I FE >OTHEN 1 370 

1310 I FZ= 1 THENB=B— 1 

1320 IFZ=2THENA=A+1 

1330 I F Z =3THENB=B+ 1 

1340 IFZ=4THENA=A— 1 

1350 RETURN 

1360 REM MESSAGE 

1370 I FE= 1 THENPR I NT 3532 , "NO WAY !!*'p 

1380 FOR J= 1 TO 1 000 : NEXTJ 

1390 RETURN 

1400 REM FOREWARD 

1410 A=X:B=Y 

1420 GOSUB 1150 

1430 GOSUB 1290 

1440 X=A:Y=B 

1450 IF E>0 THEN 1050 

1460 REM START OF 3-D DISPLAY 

1470 A=X:B=Y 

1480 GOSUB 1150 

1490 F0RT=1 T05 

1500 GOSUB 1570 

1510 IF EOO THEN 1050 

1520 GOSUB 1290 

1530 GOSUB 1150 

1540 IF E=2 THEN 1050 

1550 NEXTT 

1560 GOTO 1050 

1570 ON T GOTO 1580,1700,2060,2370,2590 

1580 CLS: PRINTS)©, "LAST COMMAND " p Z* ? : PRINTSJ45, "SCORE" ? S 

1590 IFE<0 OR E>1 THEN RETURN 

1600 W= 15360: FOR I =71 TO 967 STEP 64 

1610 POKE W+I, 191 

1620 POKE VV+ I +44, 191 

1630 NEXTI 

1640 IF E=0 RETURN 

1650 FOR I =72 TO 114 

1660 POKEVV+I ,131 

1670 POKE VV+I+896, 176 

1680 NEXTI 

1690 RETURN 

1700 REM DEPTH 2 

1710 IFE<OTHEN RETURN 

1720 IF C=OTHEN 1 800 

1 730 K=72 : M=96B : P= 1 40 : Q=P : GOSUB 1 790 

1740 K=K+1 : M=M+1 : P=176: Q=131 : GOSUB 1790: K=K+65: M=M-63: P=131 : Q=17 
6 : GOSUB 1 790 : K=K+ 1 : M=M+ 1 ; P= 1 40 : Q= 1 40 : GOSUB 1 790 

1 750 K=K+ 1 : M=M+ 1 : P= 1 76 : Q= 1 3 1 : GOSUB 1 790 : K=K+65 : M=M-63 : P= 1 3 1 : <2= 1 76 
: GOSUB 1790 

1760 K=K+ 1 : M=M+ 1 : P= 1 40 :Q= 140: GOSUB 1790 
1770 K=K+1:M=M+1:P=176: <2=131: GOSUB 1790 
1780 GOTO 1840 

1 790 POKE V V+K , P : POKE W+M , Q : RETURN 
1800 FOR I =264 T0271 
1810 POKEVV+I, 131 
1820 POKEVV+I +5 12, 176 
1830 NEXTI 

1840 IF D=0 THEN 1920 

1850 K=1 14: M= 1010: P=140: Q=P: GOSUB1790 



MICRO-80 PRODUCTS 


DON'T BE HELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVE UP TO 

NEWDQS 80 $149 incl. p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well-documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

* New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

* Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5% inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS — striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

* Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 


DISKDRIVE USERS 
ELIMINATE CRC ERRORS 
AND 

TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1.20 p&p. 

When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk 1/0 errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 


MPI DISKDRIVES 

HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
— set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $349 

MPI B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 


OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80 TRACK DRIVES 

MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 514 inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 

The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 514 inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1500!! 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $619 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 


CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 
$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 


PLEASE USE ORDER FORM 
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USE TANDY PERIPHERALS ON YOUR SYSTEM-80 
VIA 

SYSPANQ-80 - $97.50 incl. p&p 
The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem. A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 


PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 

$37.50 + $120 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memory, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL III BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 
This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 


UPGRADE TO 16K 
FOR ONLY $30.0011 


DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $39 incl. p&p 

DC-4 4 Drive Connector Cable $49 incl. p&p 


DOUBLE THE SPEED AND CAPACITY 
OF YOUR DISK DRIVES 
PERC0M DOUBLER ONLY $220 
plus $2.00 p&p 

Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDOS compatible double density operating system. 

DOUBLE-ZAP II - DOUBLE DENSITY PATCH 
FOR NEWDOS 80 
$53.00 plus $1.00 p&p 
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FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 
Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 


BOOKS 

LEVEL II ROM REFERENCE MANUAL 
$24.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 
sample programs. Applies to both TRS-80 and SYSTEM 
80. 

TRS-80 DISK AND OTHER MYSTERIES 


MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 - 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 


$24.95 + $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 
structures revealed, DOS's compared and explained, 
how to recover lost files, how to rebuild crashed 
directories - this is a must for the serious Disk user 
and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 
$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 
Level I Handbook, this book teaches you, step-by-step, 
how to get the most from your Level II machine. 
Invaluable supplement to either the TRS-80 Level II 
Manual or the System-80 Manuals. 




MORE AUSTRALIAN SOFTWAR 


All programs designed to run on both the TRS-80 or the SYSTEM 80 without modification. Most programs include sound 


TRIAD VOL 1 — L2/16K 
Cassette $1 0.95 Disk $1 5.95 
+ 60c p&p 

Three separate games which test your powers of memory and 
concentration. The programs combine graphic displays and 
sound: 

SIMON-SEZ: Just like the electronic music puzzles on sale for 
more than $20. Numbers are flashed on the screen and sounded 
in a sequence determined by the computer. Your task is to 
reproduce the sequence, correctly. 

LINE?: Rather like a super, complicated version of noughts 
and crosses. You may play against another player or against 
the computer itself. But beware, the computer cheats! 

SUPER CONCENTRATION: Just like the card game but with 
more options. You must find the hidden pairs. You may play 
against other people, play against the computer, play on your 
own, or even let the '80 play on its own. 

TRIAD VOL2-L2/16K 
Cassette $10.95 Disk $15.95 
+ 60c p&p 

Remember those "NUMERO" puzzles in which you had a 
matrix of numbers (or letters) with one blank space and you 
had to shuffle the numbers around one at a time until you 
had made a particular pattern? Well, SHUFFLEBOARD, the 
first program in this triad, is just this, except that the computer 
counts the number of moves you take to match the pattern 
it has generated — so it is not possible to cheat. 

MIMIC is just like SHUFFLEBOARD except that you only 
see the computer's pattern for a brief span at the beginning of 
the game, then you must remember it! 

In MATCHEM, you have to manoeuvre 20 pegs from the 
centre of the screen to their respective holes in the top or 
bottom rows. Your score is determined by the time taken to 
select a peg, the route taken from the centre of the screen to 
the hole and your ability to direct the peg into the hole with- 
out hitting any other peg or the boundary. 

VISURAMA L2/16K 
Cassette $10.95 Disk $15.95 
+ 60c p&p 

Two programs which give fascinating, ever-changing patterns 
on the screen. 

LIFE is the fastest implementation of the Game of Life you 
will see on your '80. Machine language routines create up to 
1200 new generations per minute for small patterns or up to 
100 per minute for the full 128 x 48 screen matrix. Features 
full horizontal and vertical wraparound. 

EPICYCLES will fascinate you for hours. The ever-changing 
ever-moving patterns give a 3D effect and were inspired by the 
ancient Greek theories of Ptolemy and his model of the Solar 
system. 

EDUCATION AND FUN - L1/4K, L2/16K 
Cassette $1 0.95 Disk $1 5.95 
+ 60c p&p 

Written by a primary school teacher to make learning enjoy- 
able for his pupils, there are five programs in both Level I and 
Level II to suit all systems: 

BUG-A-LUG: a mathematics game, in which you must get the 
sum correct before you can move. 

AUSTRALIAN GEOGRAPHY: learn about Australian States 
and towns, etc. 

SUBTRACTION GAME: build a tower with correct answers. 
HOW GOOD IS YOUR MATHS? Select the function (+, — , 
or X) and degree of difficulty. 

HANGMAN: That well known word game now on your 
computer. 

Recommended for children from 6 to 9 years. 


COSMIC FIGHTER & SPACE JUNK - L2/16K 
Cassette $1 0.95 Disk $1 5.95 
+ 60c p&p 

Both programs have sound to complement their excellent 
graphics. In COSMIC FIGHTER, you must defend the earth 
against seven different types of alien aircraft. It is unlikely that 
you will be successful but you will have a lot of fun trying! 

You mission in SPACE JUNK is to clean up all the debris left 
floating around in space by those other space games. It is not 
as simple as it sounds and space junk can be quite dangerous 
unless you are very careful. 

SPACE DRIVE L2/4K&16K 
Cassette $8.95 Disk $1 3.95 
+ 60c p&p 

Try to manoeuvre your space ship through the meteor storms 
then land it carefully at the space port without running out of 
fuel or crashing. Complete with realistic graphics. 

STARFIRE AND NOVA INVASION L2/16K 
Cassette $1 0.95 Disk $1 5.95 
+ 60c p&p 

Both programs include sound to improve their realism. 
STARFIRE seats you in the cockpit of an X-wing fighter as 
you engage in battle with the deadly Darth Vader's Tie-fighters. 
Beware of the evil one himself and may the Force be with you. 
In NOVA INVASION, you must protect your home planet of 
Hiberna from the invading NOVADIANS. You have two fixed 
guns at each side of the screen and a moveable one at the 
bottom. Apart from shooting down as many invaders as 
possible, you must protect your precious hoard of Vitaminium 
or perish! 

AIR ATTACK AND NAG RACE - L2/16K 
Cassette $1 0.95 Disk $1 5.95 
+ 60c p&p 

An unlikely combination of programs but they share the same 
author who has a keen sense of humour. 

AIR ATTACK includes sound and realistic graphics. The air- 
craft even have rotating propellors! But they also drop bombs 
on you, so it's kill or be killed! 

NAG RACE lets you pander to your gambling instinct without 
actually losing real money. Up to five punters can join in the 
fun. Each race results in a photo-finish whilst there is a visible 
race commentary at the bottom of the screen throughout the 
race. Happy punting! 

FOUR LETTER MASTERMIND L2/16K 
Cassette $8.95 Disk $1 3.95 
+ 60c p&p 

There are 550 four-letter words from which the computer can 
make its choice. You have 12 chances to enter the correct 
word. After each try, the computer informs you of the number 
of correct letters and those in the correct position. You can 
peek at the list of possible words but it will cost you points. 
Makes learning to spell fun. 

MUSIC IV -L2/16K 
Cassette $8.95 Disk $1 3.95 
+ 60c p&p 

Music IV is a music compiler for your '80. It allows you to 
compose or reproduce music with your computer that will 
surprise you with its range and quality. You have control over 
duration (full beat to 1/16 beat) with modifications to extend 
the duration by half or one third for triplets. Both sharps and 
flats are catered for as are rests. Notes on whole sections may 
be repeated. The program comes with sample data for a well- 
known tune to illustrate how it is done. 


***SAVE 00$'s ***SAVE 00$'s***SAVE 00$'s ***MICRO-80 EXPANSION INTERFACE*** 

MICRO-80's expansion interface utilises the proven LNW Research Expansion board. It is supplied fully built up and tested in an 
attractive cabinet with a self contained power supply, ready to plug in and go. The expansion interface carries MICRO-80's full, no 
hassle, 90-day warranty. 

Features include:- e Sockets for up to 32K of memory expansion ® Disk controller for up to 4 disk drives ® Parallel printer port 

® Serial RS232C/20mA I/O port ® Second cassette (optional) 

The expansion interface connects directly to your TRS-80 L2/16K keyboard or, via SYSPAND-80 to your SYSTEM-80VIDEO GENIE 
Prices: HD-010-A Expansion Interfaces with 0 K : $499.00 HD-010-B Expansion Interfaces with 32K : $549.00 HD-011 Data 
separator fitted (recommended) : add $29.00 HD-012 Dual cassette Interfaces fitted : add $19.00 

The MICRO-80 Expansion Interface is also available in kit form. 

Prices: HD-013 Kit consisting of LNW Research PC board and manual, ALL components including cabinet & power supply : $375.00 
HD-01 1 Data separator for above $25.00 HD-013 Dual cassette Interface kit : $1 5.00 





for $49.00 


plus $2.00 p & p 


A choice of upper and lower case display is easier to read, 
gives greater versatility. 

The Micro-80 lowercase modification gives you this facility, 
plus the symbols for the 4 playing-card suits for $49.00 + 

$2.00 p, & p. 

The Micro-80 modification features true below-the-line 
descenders and a block cursor. 

Each kit comes with comprehensive fitting instructions 
and two universal lower-case drive routines on cassette to 
enable you to display lower case in BASIC programs. 

The driver routines are self-relocating, self-protecting and 
will co-reside with other machine language programs such 
as Keyboard-debounce, serial interface driver programs etc. 


Both programs give your TRS-80 m Model I or System 80 ,n 
an optional typewriter capability, i.e. shift for upper case 

The second programme also includes Keyboard-debounce 
and a flashing cursor. 

You fit it. Or we can. 

Fitting the modification requires soldering inside the 
computer. This should only be carried out by an experienced 
hobbyist or technician. 

If you are at all dubious, a fitting service is available in all 
capital cities for only $20.00. 

A list of installers is included with each kit. 


Save $120 usm 

ADD A DISK DRIVE TO YOUR TRS-80TMODEL III 
FOR ONLY $875.00 OR ADD TWO FOR ONLY $1199. 



The Micro-80 disk drive upgrade for the TRS-80' m Model III 
contains the following high quality components: 

1 or 2 MPI 40-track single head disk drives. 1 VR Data 
double-density disk controller board and 1 dual drive power 
supply plus all the necessary mounting hardware, cablesand 
comprehensive fitting instructions, which can be carried out 
with a minimum of fuss by any average computer owner. 
Fitting service isavailable for $25.00 in most capital cities. 


Daisy Wheel Typewriter/Printer 

MICRO-80 has converted the new OLIVETTI ET - 1 21 DAISY WHEEL typewriter 
to work with the TRS-80 and SYSTEM 80 or any other microcomputer 
with a Centronics parallel port (RS 232 serial interface available 
shortly). The ET- 1 2 1 typewriter is renowned for its high quality, 
fast speed (17 c.p.s.), quietness and reliability. MICRO-80 is 
renowned for its knowledge of the TRS-80/SYSTEM 80 and its sensible 
pricing policy. Together, we have produced a dual-purpose machine:- 
an attractive, modern, correcting typewriter which doubles as a 
correspondence quality Daisy-wheel printer when used with your 
micro-computer. 

How good is it? - This part of our advertisement was typeset using 
an ET- 121 driven by a TRS-80. Write and ask for full details. 


ONLY $2049 INC. S.T. 

fMmmmmmMmmsmmsmmmmmmm 




*** NEW IMPORTED SOFTWARE *** 

FOR TRS-80 MODELS I & III FROM THE CORNSOFT GROUP 


SCARFMAN an AMAZE ing game known in the arcades as Ghostmuncher or Pacman. 
This is by far the best implementation of this thrilling arcade game 
that we have seen on the TRS-80. It comes complete with realistic 



ENHBAS $59-95 + $1-00 p&p 

MODEL I DISK OR CASSETTE, MODEL III DISK OR CASSETTE (Specify) 



Sorts 1000 strings in less than 10 seconds 


BRANCHING COMMANDS 

Label BASIC lines then branch to them via the new GTO or GSUB statements. 
Makes for modular self -documenting programs. RESTORE to a data statement 
at any line number or label. POP eliminates the last return from a 
11 . ‘ 


of lines commanded from being rolled off the top. LEFT, moves the 
whole screen over one character to the left. INVERT, why not RESET 
all of those SET points, and SET all the RESET points in one command, 
and while it works, non-graphic blocks are uneffected. DRAW and PLOT 
makes games and graphs easier to create. DRAW uses a "shape table" 
which tells the command which direction, how far and how to draw (SET 
or RESET). DRAW allows the use of SCALE (how big) and ROT (rotate 

the picture in 45° increments) to help animate those pictures. PLOT 
makes line and box drawing a one line command (no loops with SETs and 
RESETS). 


OTHER COMMANDS 

Single step through BASIC programs with ZSTEP! SOUND gives you a key 
click, PLAY allows you to control the pitch and length of tones generated 
by your computer through the cassette port. EXEC enables you to EXECute 
a string. EVAL evaluates a variable, directly. WPEEK and WPOKE are 




HARD DISK - OVER 3 Megabyte STORAGE FOR YOUR MODEL III ! ! 


ONLY $2995* 

Now, for the first time in Australia, MICRO-80 is able to offer the ACT Micro-Winchester hard 
disk storage sub-system for the TRS-80 Model III microcomputer. The ACT is a completely self- 
contained unit in a small attractive cabinet. It includes a 5Mbyte 5 % inch Winchester technology, 
hard disk drive, an ACT controller card with HOP high integrity data separator, power supply, 
a Model III interface card and cable and CP/M 2.2 (org 4200 or org 0) disk operating system. 

In short, it is a complete, stand-alone unit which simply plugs on to the 50 way expansion 

bus on your Model III. There are absolutely no modifications made to your computer and the 

Tandy warranty is not effected in any way. The minimum system requirements are a 48K single 

disk drive TRS-80 Model III microcomputer. ACT offers the following unique advantages: 

ultra fast disk access time (5 million bits per second burst speed) 
ultra high reliability writing and reading of data 

enormous storage capacity (equivalent to almost 28 standard floppy disk drives) 

access to the very wide range of high quality CP/M applications software (standard Model 
III requires org 4200 Hex programs) 

quiet, reliable operation 

local service and design backup. ACT started in the U.S.A. but is now an Australian owned 
company based in Sydney. 

Coming soon, D0SPLUS 4.0 for your ACT Micro-Winchester. 

Now your TRS-80 Model III can be a serious business computer at a fraction of the cost of other 
brands with similar specifications. 

Want an ACT Micro-Winchester on your disk-based Model I or System 80? It could be done but 
we need to gauge the interest. Write to us to let us know that you would be seriously interested. 

Price is F.O.B. Adelaide. Add $15 road freight anywhere in Australia. 

THIS MONTH'S SPECIALS 
ET121 TYPEWRITER/ PRINTERS ONLY $1500* 

Electronics are great, prices keep coming down, not going up. The regular price for our ET121 
Electronic Daisywheel typewriter/printer is down to $1750. But we are overstocked so for a 
short time we are reducing the price to only BBiW. This is for the standard ET121 with 
the MICRO-80 parallel interface. The ET121 is a heavy duty, full-sized (15" carriage) electronic 
typewriter. With an interface it operates as a correspondence quality printer driven by your 
computer. If you have been contemplating purchasing one of these machines, now is the time 
to act, you will not find better value for money anywhere. 

* Price is F.O.B. Adelaide, add $20 road freight anywhere in Australia. Cable from TRS-80/SYSTEM 
80 printer port to printer $39-00. The typewriter/printer requires the use of an expansion 
interface, Syspand 80 (on the System 80) or Tandy printer cable. 

MICROPOLIS 77 TRACK DISK DRIVE ONLY $499 * 

One only left in stock. Normally sells at $649-00, this a brand new 77 track MICROPOLIS disk 
drive complete with cabinet and power supply. We are rationalizing our product lines and will 
no longer stock these units. (Full service and spares will continue to be available). 

* Price is F.O.B. Adelaide, add $10 road freight anywhere in Australia. 



DOSPLUS - THE NO-FUSS POWERFUL DISK OPERATING SYSTEM FOR MODEL I OR III 

Until DOSPLUS cane along you had only two choices. Use TRSDOS which was slow, full of bugs 
but very widely used, or use NEWDOS 80 which was powerful, fast, had a few bugs, but these 
were corrected periodically by user-installed zaps but was intended as an experienced programmers 
DOS and took a lot of study and understanding. If you wanted to take advantage of advancing 
technology in disk drives, then you had no choice - NEWDOS 80 was the only serious DOS to support 
dual-head or 80 track disk drives. Make no mistake, NEWDOS 80 is a great DOS but it does take 
quite a bit of driving and in the Model III in particular, is almost incompatible with TRSDOS. 

Then came DOSPLUS 3.3. MICRO-SYSTEMS SOFTWARE, the authors, offered a $100 reward for each 
genuine bug reported in DOSPLUS 3.3. Over a period of 12 months, they paid out only 5 times! 
DOSPLUS 3.3 is still current and is an excellent Operating System for those who want a straight- 
forward, fuss-free DOS using single head disk drives of any track count. There is a high degree 
of compatibility with TRSDOS. 80 MICROCOMPUTING reports that DOSPLUS 3.3 Double Density is 
the only serious Double Density Operating System for the Model I. 

Now we also have DOSPLUS 3.4. DOSPLUS 3.4 supports dual head disk drives of any track count 
or stepping speed. It also supports 8" disk drives (with suitable hardware). The following 
are just a few of the many features available: 

- BASIC array sort - multi key, multi array 

- Tape/Disk - Disk/Tape utility (with relocator) 

- Input @ (controlled screen input) 

- Random access and ASCII modification on Diskdump 

- BASIC checks for active "DO" 

- Backup and Format from a "DO" file 

- Much improved Backup (more reliable) 

- I/O package much faster (disk access time 
reduced) 

- Repeat last DOS command with "/" ENTER 

- Short directory (file name and extension) 
available 

- Short directory of Model 3 TRSDOS disks 

- Single file convert from Model 3 TRSDOS 

- COMPLETE device routing supported (DOS and 
BASIC) 

- Ability to save BASIC programs directly to 
another machines' memory (if equipped with 
DOSPLUS 3.4) 

- Includes the new DOSPLUS Z80 disk BASIC 
version 1.6 

- Single drive copy utility 

- RESTORE dead files 

- PURGE (unwanted files) 

- CLEARFILE (destroys data by writing zeros 
to file) 

- TRANSFER (moves all user files from one disk 
to another) 

- SPOOLER (allows printing of text while 
freeing up the CPU) 

- CRUNCH (BASIC program compressor) 

And all this in a simple, easy-to-use package supported by a 200 plus page User's Guide. We 
have ALL versions of DOSPLUS in stock now! Specify the version you require and whether you 
need it on a 35, 40 or 80 track disk. 

DOSPLUS 3.3 $99-95 incl. p&p 

DOSPLUS 3.4 $149-95 incl. p&p 

Specify: - MODEL 1 - SINGLE DENSITY 

- MODEL 1 - DOUBLE DENSITY 

- MODEL 3 

Specify: - MODEL 1 - SINGLE DENSITY 

- MODEL 1 - DOUBLE DENSITY 

- MODEL 3 
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+: PRINTER price 


STAR DOT MATRIX PRINTER ONLY +$625 
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BREAKTHROUGH! ! * 
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The STAR dot Matrix 


Printer has the following features- 0 


SO character per second Print speed 

— bi — di recti onal Printing 

~ Logical seeking of shortest print path 

- Three Print widthss 

Standard SO characters per line 

Compressed 132 characters per line 

Expanded 40 characters Per line 


Friction AND Tractor feed included 
~ Adjustable paper width from 4-9 inches 
~ 9 wire Print head 

9x7 high quality character formation 
~ Lower case 
~ Block graphics 

~ line spacinss - software selectable 
~ Centronics Parallel port.- (RS232 serial 
- Self test facility 


optional ) 


This page was typeset 
TRS— 80. 


using the Star printer driven 


by 


a Model 


+ Price is F. 0. B. 
Austral ia. 


Adelaide add $15.00 road freight anywhere 


Cable from TRS-SO/Sy stem SO printer Port 
printer requires the use of an expansion 
the System SO) or printer cable. 


to Printer $39.00 
interface.- SYSPAND SO 
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.4 MEGABYTES ON LINE + 48K RAM 

for s 3800 ImcL Sales Tax 



MICRO-80’s 


MODEL 380 + 


MICHO-80 has equipped the TRS-80 with two high reliability dual-head 80 track mini- 
floppy disk drives made by MPI, one of America’s leading mini-disk drive manufacturers. 
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COMPUTER PRICES 


MODEL 340 

2 40 TRACK SINGLE HEAD DRIVES GIVING 
350K FORMATTED STORAGE, 48K RAM 

MODEL 340 + 

2 40 TRACK DUAL-HEAD DRIVES GIVING 

$ 2990 INCL. sales tax 

700K FORMATTED STORAGE, 48K RAM 
MODEL 380 

2 80 TRACK SINGLE HEAD DRIVES GIVING 
700K FORMATTED STORAGE, 48K RAM 

MODEL 380 + 

2 80 TRACK DUAL-HEAD DRIVES GIVING 

1.4 MEGABYTE FORMATTED STORAGE, 48K RAM 

$ 3350 INCL. SALES TAX 
$ 3350 INCL. SALES TAX 
$ 3800 INCL. SALES TAX 

350K SYSTEM 

MODEL 340, EPSON MX-80 PRINTER 
NEWDOS 80 DISK OPERATING SYSTEM 

$ 4070 INCL. SALES TAX 

700K SYSTEM (40 Track) 

MODEL 340 +\ EPSON MX-80 PRINTER 


NEWDOS 80 DISK OPERATING SYSTEM 

$ 4429 INCL. SALES TAX 

700K SYSTEM (80 Track) 

MODEL 380, EPSON MX-80 PRINTER 


NEWDOS 80 DISK OPERATING SYSTEM 

$ 4429 INCL. SALES TAX 

1.4 MEGABYTE SYSTEM 
MODEL 380 + , EPSON MX-80 PRINTER 
NEWDOS 80 OPERATING SYSTEM 

$ 488Q INCL. SALES TAX 

2.8 MEGABYTE SYSTEM 

MODEL 380 + , DUAL EXTERNAL DRIVES. 

MX-80 PRINTER, NEWDOS 80 OPERATING SYSTEM 

$ 6380 INCL. SALES TAX 


★ 


EXATRON STRINGY FLOPPY - $372.50 mci. p&p 

All Exatron Stringy Floppies sold by MICRO-80 include the special chained version of 
HOUSEHOLD ACCOUNTS, developed by Charlie Bartlett. When used on the ESF, this pro- 
gram is powerful enough to perform many of the accounting functions in a small 
business. Remember, the ESF comes complete with a comprehensive manual, a 2 way 
bus-extender cable, its own power supply and 10 wafers of mixed length. One wafer 
contains the Data Input/Output program and another the HOUSEHOLD ACCOUNTS 
program. 

CAN’T MAKE UP YOUR MIND ABOUT THE ESF? 

Then send in $5.00 for a copy of the manual. We will refund your $5.00 IN FULL when you 
purchase an ESF. 



All prices subject to change without notice. Prices are F.O.B. Adelaide. All computers and systems carry MlCRO-80’s 

90-day Warranty covering parts and labour. 
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SOFTWARE BY AUSTRALIAN AUTHORS 

All our software Is suitable for either the SYSTEM 80 or the TRS-80 


NEW SOFTWARE FROM MICRO-80 PRODUCTS 
BUSINESS PROGRAMS 

MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/16K) 

Cassette version. $29.95 + $1.00 p&p 

Stringy Floppy version $33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide.’ It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: — 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 


SCOTCH BRAND COMPUTING CASSETTES 

Super-quality personal computing cassettes. 

C-IOpackoflO $26.00 incl. p&p 

C-30packof10 $28.00 incl. p&p 


UTILITIES 

S-KEY by Edwin Paay $15.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

* S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

* Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 


BM0N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/16-48K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly . . . the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 


EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 

$14.95 $ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 


GAMES 

MICR0P0LY (L2/16K) $8.95 + 60c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $8.95 + 60c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 

$10.95 + 60c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 
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AUSTRALIAN SOFTWARE (Cont.) 

GAMES 

SHEEPDOG (L2/16K) $8.95 + 60cp&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

U BOAT $8.95 + 60c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS WITH SOUND $8.95 + 60c p&p 

Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

GOLF (L2/16K) $8.95 + 60cp&p 

Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 


Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 
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Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 


OTHER PROGRAMS 

INFINITE BASIC BY RACET (32K/1 DISK) 

$49.95 + 50c. p&p 

Full matrix functions — 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) $24.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED (1216,32 or 48K) $29.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 


LOWER CASE FOR YOUR TRS-80/SYSTEM 80 
Kit only $49.00 plus $2.00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 

Cat No. 

HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 


EPSON MX-80 PRINTER 
ONLY *$949 Inc. Cable for TRS-80 and p&p 
(*Printer only — $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 


GREEN SCREEN SIMULATOR 
$9.50 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 






ISSUE 25 (DECEMBER 1981) 


MICRO-80 


PAGE 21 


1860 K=K— 1 : M=M— 1 : P= 1 76 : 0= 1 3 1 ; GOSUB 1 790 : K=K+63 : M=M-65 : P= 1 3 1 : Q= 1 76 

s GOSUB 1 790 : K=K— 1 s M=M- 1 : P= 1 40 : Q=P : GOSUB 1 790 

1870 K=K— 1 : M=M-1 : P=176: 0=131 s GOSUB 1790 

1 880 K=K+63 : M=M-65 s P= 1 3 1 s 0= 1 76 s GOSUB 1 790 

1 890 K=K— 1 : M=M— 1 : P= 1 40 : Q=P : GOSUB 1 790 

1 900 K=K— 1 ; M=M— 1 s P= 1 76 : 0= 1 3 1 : GOSUB 1 790 

1910 GOTO 1960 

1920 FOR I =299 TO 306 

1 930 POKE W+ 1,131 

1 940 POKE W+ 1+512,176 

1950 NEXT I 

1960 FOR I =272 TO 784 STEP 64 

1970 POKEVV+I ,191 

1980 POKEW+I+26, 191 

1990 NEXTI 

2000 IF E=0 RETURN 

2010 FOR 1=273 TO 297 

2020 POKEVV+I, 131 

2030 POKE W+ 1 +5 12, 176 

2040 NEXTI 

2050 RETURN 

2060 REM DEPTH 3 

2070 IFC=OTHEN 2120 

2080 K=273 ; M=785 : P= 1 40 : Q=P : GOSUB 1 790 s K=K+ 1 s M=M+ 1 : P= 1 76 : Q= 1 3 1 : GOS 
UB 1790 

2090 K=K+65 : M=M-63 : P= 1 3 1 : Q= 1 76 : GOSUB 1 790 : K=K+ 1 s M=M+ 1 : P= 1 40 : 0= 1 40 
; GOSUB 1790 

2100 K=K+ 1 : M=M+ 1 ; P= 1 76 s 0= 1 3 1 ; GOSUB 1 790 

2110 GOTO 2160 

2120 FOR I =401 TO 405 

2130 POKEVV+I, 131 

2140 POKEVV+I +256, 176 

2150 NEXTI 

2160 IFD=OTHEN 2220 

2170 K=297 ; M=809 ; P= 1 40 s 0= 1 40 s GOSUB 1 790 
2180 K=K— 1 : M=M— lsP=176:Q=131s GOSUB 1 790 
2190 K=K+63 s M=M-65 s P= 1 3 1 s Q= 1 76 s GOSUB 1790 

2200 K=K— 1 s M=M— 1 : P=140; 0=140: GOSUB 1790; K=K-1 : M=M-1 : P=176: Q=131 : G 

0SUB1790 

2210 GOTO 2260 

2220 F0RI=421T0425 

2230 POKEVV+I, 131 

2240 POKEVV+I +256, 176 

2250 NEXTI 

2260 FOR I =406 TO 666 STEP 64 

2270 POKEVV+I, 191 

2280 POKEVV+I+14, 191 

2290 NEXTI 

2300 IF E=0 RETURN 

2310 FOR I =407 T0419 

2320 POKEVV+I, 131 

2330 POKEVV+I +256, 176 

2340 NEXTI 

2350 RETURN 

2360 REM DEPTH 4 

2370 IF C=0 THEN 2410 

2380 K=407 ; M=663 ; P= 1 40 : Q= 1 40 s GOSUB 1 790 : K=K+ 1 s M=M+ 1 : P= 1 76 ; Q= 1 3 1 s G 
0SUB1790 

2390 K=K+65 s M=M-63 : P= 1 3 1 : 0= 1 76 : GOSUB 1 790 
2400 GOTO 2430 

2410 K=47 1 ; M=599 s P= 1 40 s Q= 1 40 s GOSUB 1 790 : K=K+ 1 : M=M+ 1 ; GOSUB 1 790 
2420 K=K+1 : M=M+1 : GOSUB 1790 
2430 IFD=OTHEN 2470 

2440 K=4 1 9 : M=675 : P= 1 40 : Q= 1 40 ; GOSUB 1 790 ; K=K- 1 : M=M— 1 : P= 1 76: Q=131 : G 
0SUB1790 

2450 K=K+63 s M=M-65 : P= 1 3 1 s Q= 1 76 : GOSUB 1 790 
2460 GOTO 2490 

2470 K=48 1 ! M=609 : P= 1 40 : 0= 1 40 : GOSUB 1 790 : K=K+ 1 s M=M+ 1 ; GOSUB 1 790 

2480 K=K+ 1 : M=M+ 1 : GOSUB 1 790 

2490 K=474 : M=480 : P= 1 88 : 0= 1 88 ; GOSUB 1 790 

2500 K=K+64 : M=M+64 : P= 1 9 1 : 0= 1 9 1 : GOSUB 1 790 

25 1 O K=K+64 : M=M+64 : P=1 43: Q=143; GOSUB 1 790 

2520 IF E=0 RETURN 

2530 FOR I =475T0479 

2540 POKEVV+I, 140 

2550 POKEVV+I+128, 140 

2560 NEXTI 
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2570 RETURN 
2580 REM DEPTH 5 
2590 IFC=060T0 2630 
2600 POKE VV+475, 176 
2610 P0KEVV+603, 131 
2620 GOTO 2640 
2630 POKEVV+539, 179 
2640 IFD=0 GOTO 2680 
2650 POKEVV+479 , 176 
2660 POKE W+607 , 131 
2670 GOTO 2690 
2680 POKE VV+543, 179 
2690 POKE VV+540, 191 
2700 POKE V V+542 , 191 
2710 IF E=0 RETURN 
2720 POKE VV+541, 179 
2730 RETURN 

2740 PRINTS>468, "WAY OUT"; 

2750 END 

2760 REM INSTRUCTIONS AND TITLE 
2770 PRINT3980, "* *********** 

2780 PRINT3980, " THE MAZE" 

2790 PRINT3980, “ * *********** 

2800 PR I NT: RETURN 

2810 PR I NT "YOU WILL BE PLACED AT A POINT IN A TEN BY TEN CELL MA 
ZE AND HAVETO FIND THE WAY OUT. YOUR SCORE WILL BE CALCULATED ON 
THE NUMBER OF LOOKS AND MOVES YOU MAKE. " 

2820 PR I NT "YOU CAN ASK FOR A PLAN AT ANY TIME IF YOU GET STUCK B 
UT THIS WILL REDUCE YOUR SCORE CONSIDERABLY." 

2830 PRINT: PR I NT "YOU CAN TURN LEFT BY PRESSING ’ L/ 

AND RIGHT BY PRESSING * R T " 

2840 PR I NT "YOU MOVE FOREWORD BY PRESSSING 'F’ " 

2850 PR I NT "GET HELP BY PRESSING ’H’ - < REDUCES SCORE !!>" 

2860 PRINT: PRINT" MAKING MAZE - PLEASE WAIT A MOMENT": RET 

URN 


***** BASIC + LABELS LII/48K . - by R.T. Worley ***** 

Those of us who program in BASIC probably believe that it is very tedious to program in machine 

language, and so it would be, if programmers ' aids such as editor/assemblers had not been developed. 
Such aids are now so advanced that they provide features superior to those available to BASIC 
programmers. One of the most useful features of an editor/assembler is the ability to attach 

LABELS to routines and jump to those LABELS from other parts of the program. The concept is 

somewhat like GOTO in BASIC with one major and significant difference. Whereas with GOTO it 

is necessary to nominate the BASIC line number to which you wish program flow to pass, this 
is not the case with an editor/assembler. The LABEL itself uniquely identifies the routine 
and the Assembler places the corresponding code in the appropriate place in memory and then 
automatically sets correct Jump addresses throughout the program. This makes for structured 
programs which do not jump about all over the place and, if meaningful Labels are used, the 

source code is largely self-documenting. 

BASIC + LABELS now offers the BASIC programmer a similar facility - with this 1.8K machine language 

program loaded in high memory, you may assign Labels to sections of your BASIC program. The 

ml. program will then "compile" your program into BASIC code which can be RUN by the standard 
BASIC interpreter. The version produced here is for a 48K machine and resides from F720H (63264) 
to FE42H (65090). If you enter the source code into an Editor/Assembler you may alter the program 

for different memory sizes by changing line 50. Use BASEPR EQU 0B700H for a 32K machine and 

BASEPR EQU 7700H for a 16K machine. The object code supplied on the monthly cassette is for 
16K machines, whilst that on disk is for 48K machines. 

BASIC + LABELS now offers the BASIC programmer a similar facility - with this 1.8K machine language 

program loaded in high memory, you may assign Labels to sections of your BASIC program. The 

ml. program will then "compile" your program into BASIC code which can be RUN by the standard 
BASIC interpreter. The hex listing produced here is for a 16K machine and resides from 7720H 
to 7F40H. Unfortunately , the well commented source code is too long to reproduce in the magazine 
but is provided on the monthly cassette and disk. The cassette also contains the 16K object 
code whilst the disk contains the 48K object code. Any reader who requires a hard copy listing 
of the source code may obtain a photo copy by sending $5-00 to MICRO-80, P.O. BOX 213, GOODWOOD, 
S.A. 5034. The line number references in the following text refer to the source code. The 

program may be assembled for different memory sizes by changing line 50. Use BASEPR EQU 0B700H 
for a 32K machine and BASEPR EQU 7700H for a 16K machine. 

USING BASIC + LABELS. 

There are three main functions available to the user: 

- Renumbering 

- Deleting REM lines 

- Label handling. 
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1. Renumbering. 

The renumber command resequences the entire BASIC program in memory using any specified starting 
number and any specified step (1-255). 

All lines with first character REM (as a token) will be given numbers, either: 

(i) a multiple of 10 times the step, or 

(ii) such that the next line will be a multiple of 10 times the step. 

Either option may be chosen. The second option is so that sections of program will stand out 

(because of their line numbers) even when REM lines are deleted. Please note that the use of 
' in place of REM does not produce a line with first character REM (in fact, it is coded as 
: followed by REM followed by ' and so wastes memory!) 

Line numbers following THEN, ELSE, RESUME, (ON. . . )G0T0, and (ON. . . )G0SUB are updated during 

resequencing. 

2. Deleting REM lines. 

This deletes all REM lines, i.e. all lines which have first character REM (as a token). The 

note in paragraph 2 above applies. 

3. Label handling. 

As well as resequencing as described in section 1, this replaces label in branch statements 
by the corresponding line number, and moves blocks of program about as specified by labels. 

A branch label heading consists of ^label*^ where "label" may be any alphanumeric characters. 
Blanks in labels are ignored. The following illustrates the use of labels in branch statements. 

100 GOTO 260 

250 REM* FRED*:* 

260 s 

Note that the branch is to the line after the heading label, that the heading label has been 
turned into a REM line that may be deleted, and that comments may follow a heading label (line 
250) since the rest of the line is ignored. A label reference (as in line 100) may be used 
in place of a line number after THEN, ELSE, GOTO, GOSUB, and RESUME. The use of ON var GOTO 
<*labell*^ , vl abel 2*} etc. is allowed. There is a limit on the number of label headings that 
can be used. This is 98 and is determined by the size of a table (lines 8085 and 9190). 

A program block move requires three labels - 

(i) a label heading <*label^ marking the start of the block to be moved; 

(ii) an end label <*ENDlabel*> marking the end of the block to be moved; and 

(iii) an insertion label ^LOClabel*} marking the point in the program for insertion of the 
block. 

The following example illustrates the use. 


1 UO GOTO < *FRED* > 

250 <*FBED*> 

260 s 


90 s 90 

1 0 0 < * B I L L * > 1 7 0 

1 1 0 3 s 

150 s 110 

160 < * ENDB I LL * > 1 1 0 

170 s ; 

s 150 

250 s 270 

260 < >r LOCI?. I LL* > 3 

270 s 


REM* BILL*) 


Of course, the line numbers will be altered to correct sequence numbers. Note that the lines 
160 and 260 are deleted, and that line 100 has been turned into a REM line. Also note that 
anything following the label in line 100 will be ignored. 

Since programs making frequent calls to subroutines work fastest when the subroutine is located 
as near the beginning of the program as possible (or, in the case of the TRS-80, when they closely 
follow the point from whence they are called), a special block move instruction is available. 
If the block header label is of the form <fGOSUBlabel*> and the end of block marker is, corres- 
pondingly, ^*ENDG0SUB1 abel*^ then the block is moved to the beginning of the program. 
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To preserve program flow in case a <*GOSUBlabel*> is used, an initial line is added to the program 
at the front. The following illustrates the use of ^,*GOSUBlabel*^ . Note in particular how 
the new line 1 ensures correct program flow. 


10 

s 

1 

GOTO 10 

100 

. 

110 

120 

REMSGOSUBFRANK* 

110 

120 

< *GOSUBFRANK* > 

170 

RETURN 

s 

== > 

10 

s 

170 

180 

RETURN 

< *ENBGOSUBFRANK* > 

1 00 


190 

s 

190 

a 


OPERATION OF THE PROGRAM. 

As indicated by line 9360, (which instructs the assembler to produce an autostart for the system 
tape), the program entry point is BEGINT i.e. line 8080. Thus to call the program from BASIC 
you must type SYSTEM ENTER and respond to the system prompt by / ENTER . If you wish you 
can add (before line 9360), 


ORG 41A4H 
DEFW BEGINT 

and then the command LINE will automatically enter LABELS. However, with a disk system and 
a good DOS, the statement 


CMD"LABELS 

will work. With standard DOS it may be necessary to have loaded LABELS earlier and enter LABELS 
via DEBUG and the G command (having noted the address of BEGINT when assembling. 

Lines 8080-8310 do some initialisation, display the menu, and branch to the selected routine 
(renumber, delete REM line, or full label handler). 


The renumberer is the first routine, starting at line 480 (it is preceded by some initialisation). 
The renumberer scans the program three times. The first time through it checks out all line 
number references and warns of all missing lines (too many- and they scroll off the screen!) 
and tests if the proposed numbering will work. The second time through it replaces the old 

line numbers by the new ones, and replaces the link pointers (the start of a program line consists 
of a link pointer followed by the line number, when the line has been put into memory). The 
third time through the line numbers after GOTO etc. are updated by evaluating the old number, 
scanning the link pointers (which have been replaced by the old numbers) till the right line 

has been found, getting the new number of the line, and replacing the old number after the GOTO 
by the new number. This is slow, but saves building a table (and besides, machine language 
is so fast anyway that I don't worry about the difference between 1 and 20 seconds). Finally, 
the ROM routine that resets the link pointers is called and the program returns to the menu. 

In the first and third scans of the BASIC program the same branching routine 670-890 is used, 
the jump addresses being altered as necessary for each pass. The branching routine is entered 
with a character from the BASIC program. The character is tested, and unless it needs special 
handling the branching routine is re-entered with the next character of the BASIC program. 

The label handler first calls the renumberer with step 1 and first line number 2 (leaving room 
to insert the line 1 GOTO 2). On return to STRST2 ("structure, stage 2") some jump addresses 

in the branching routine are changed and the program scanned for reference labels after GOTO 
etc. These are replaced by the correct numbers and the line number in saved in a table for 
later "REM"ing. On return to STRST3 a similar scan is started to handle ^LOClabelv instructions. 
This returns to STRST4 which handles the <*G0SUBlabel^) instructions. STRST5 deletes REMREM 
lines (which are the remains of the <,*L0C and <*G0SUB lines). STRST6 inserts the line 1 GOTO 
2, STRST7 calls the ROM link pointer resetting routine and STRST7 calls the renumberer with 

the wanted step and start. 

Note that there is quite a number of ROM calls. Since ROMs vary slightly, there may be trouble 
with using them in other machines. However, I believe the calls used work in most (and probably 
work in all) TRS-80 MODEL I ROMs. If any trouble occurs, I will give MICRO-80 the relevant 
code. 
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7DC0: 
7DD0; 
7DE0; 
7DF0: 
7E00 : 
7E10; 
7E20: 
7E30 : 
7E40: 
7E50: 
7E60: 
7E70: 
7E80 : 
7E90: 
7EA0: 
7EB0; 
7EC0; 
7ED0 : 
7EE0; 
7EF0: 
7F00: 
7F 10: 
7F20; 
7F30 s 
7F40; 


***** POLYNOMIAL REGRESSION ANALYSIS L2/16K - by J.R. Jones ***** 

Polynomial Regression analysis is used to test data for a non-linear or curvilinear relationship 
between the dependent variable (Y) and the independent variable (X), according to the model 
Y=A+BX+CX^+DX^+ ETC. This routine allows polynomial regression analysis to the models : 

Y = A + BX 

Y = A + BX + CX 2 

Y = A + BX + CX 2 + DX 3 

on up to 100 data pairs, which are verified and can be edited following entry. The routine 

calculates coefficients for selected polynomial models, the mean values of X and Y and R 2 (an 
indication of closeness of fit, where 1 is perfect). The routine will also print residual tables 

on command and compute values of Y for entered values of X. 


10 'ROUTINE FOR POLYNOMIAL REGRESSION ANALYSIS 
20 '(C) COPYRIGHT 1980 
30 'T.R. JONES, 

40 '43 HAST IE ST., 

50 'TATURA, 3616. 

60 CLS: DEFINTI— N: DIMX (100) , Y ( 100) , Q (5, 5) ,R(5) ,S(5) : 

P*= " ######### . #### " : D* ( 1 ) =" 1ST DEGREE " : D* ( 2 ) = " 2ND DEGREE " s 
D*(3)="3RD DEGREE" 

70 G0SUB80 : GOTO 110 

80 CLSsPRINTTAB( 17) "POLYNOMIAL REGRESSION ANALYSIS": 

PRINTTAB (17) STRING* (30, 45) : NT=0 
90 PR I NT : PR I NT : PR I NT : PR I NTTAB ( 23 ) " POL YNOM I AL MODELS " : PR I NT 
100 PRINTTAB ( 10) D* ( 1 ) ; " : Y = A + BX (1)": 

PRINTTAB ( 10) D* (2) ; " ; Y = A + BX + CXC2 (2)": 

PRINTTAB ( 10) D* (3) ; " : Y = A + BX + CXC2 + DXC3 (3)": 
RETURN 

110 PRINT3977, "TYPE < ENTER > TO CONTINUE INPUT I* 

1 20 CLS : PR I NTTAB ( 27 ) ** ENTER DATA " : PR I NT : PR I NT : 

PRINTTAB (13) "NUMBER OF DATA POINTS - MAXIMUM IS 100" 

130 PR I NTTAB ( 28 )"*";: I NPUTND : I FND< 20RND > 1 00 

PR I NT CHR* ( 27 ) ;CHR*(30) ;CHR*(29) ;CHR*(27) : GOTO 130 
140 PRINT: PRINT: F0RI=1T0ND; PRINT" X ("; I; ") =" ; : INPUTX ( I ) : 

PR I NTT AB ( 32 ) CHR* ( 27 ) ; "Y("; I; ") =": ; INPUTY ( I ) : NEXTI 
1 50 CLS : K=0 : PR I NTTAB ( 24 ) " DATA ENTERED " : PR I NT : FOR 1=1 TOND : K=K+ 1 : 
PR I NT " X ( " ; I ; " ) =" ; X ( I ) ; TAB (32) " Y ( " ; I ; " ) =";Y(I): 

IFK< 10NEXTIELSEPRINT5>977, "TYPE < ENTER > TO CONTINUE ";: 

INPUT I*: K=0: CLS: NEXTI 
160 PRINT3983, "EDIT DATA (Y/N)"; 

170 I *= I NKEY* : I F I *= " " THEN 1 70ELSE I F I *= " Y " THEN 1 80ELSE I F I *= " N " 
THEN 190ELSE 170 


55 52 4E 20 54 4F 20 42 
54 45 52 20 4E 45 57 20 
4F 52 20 46 49 52 53 54 

54 45 52 20 53 54 45 50 

55 4D 42 45 52 45 44 20 
28 31 20 54 4F 20 32 35 
4B 53 20 4F 4E 20 48 55 
52 20 4E 49 4E 45 54 49 
3F 00 CD C9 01 31 38 76 
21 45 7E E5 21 CE 7C CD 
93 7E F5 CD C9 01 FI FE 
FE 43 28 12 FE 41 CO CD 
CD 20 77 C3 36 77 CD CA 
C3 DO 7B 06 01 2A A7 40 
52 4F 4E 47 20 46 4F 52 
44 4F OD 00 21 9F 7E CD 
B7 28 FI CD 5A IE B7 20 
ED 53 14 77 21 EE 7D CD 
F3 32 16 77 21 IB 7E CD 
OA FE 4E 20 EF 3E 01 32 
77 2B 7E 2B FE FF 20 02 
23 36 93 El 18 EB E5 D5 
7E 2B FE FF 20 IB BE 20 
2B 36 FF 11 3B 76 DF 38 
ED BA 20 DB 7E BB 20 D7 


41 53 49 43 OD 00 45 4E 
4E 55 4D 42 45 52 20 46 
20 4C 49 4E 45 00 45 4E 

20 46 4F 52 20 52 45 4E 
50 52 4F 47 52 41 4D 20 
35 29 00 52 45 4D 41 52 
4E 44 52 45 44 53 20 4F 
45 53 20 28 48 2F 4E 29 

21 FF 76 36 FF 2B 36 FF 
A7 28 3E 01 32 13 77 CD 
44 CA CC 06 FE 42 28 1C 
CA 7E 3A 16 77 2A 14 77 
7E C3 85 7 A AF 32 13 77 
E5 CD D9 05 El 7E C9 57 
4D 41 54 20 2D 20 52 45 
A7 28 CD B3 IB 38 F5 D7 
EB C9 21 CE 7D CD B7 7E 
B7 7E AF BA 20 F6 83 28 
A7 28 CD 93 7E FE 48 28 
5F 77 C9 AF 18 F9 21 00 
BE CS 57 5E E5 CD E2 77 
2A A2 40 EB 21 00 77 2B 
IS 23 72 2B 73 2B 36 FF 
03 El D1 C9 23 23 23 18 
18 EF 
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180 CLS;K=0: INPUT "DATA POINT TO BE EDITED"; I; 

I F I >NDTHEN 1 80ELSEPR I NTT AB < 4 ) "X I ; " ) = "; X (I) ; TAB (36) "Y ( " ; I ; " 
) = " ; Y ( I ) : 

PRINT " NEW X ( " ; I ; " ) =" ; : INPUTX ( I ) : 

PR I NTT AB ( 32 ) CHR$ ( 27 ) ; "NEW Y < “ ; I ; " ) = "; : INPUTY(I) :G0T0I50 
190 00SUB80 ; PR I NT 3856 , " SELECT MODEL" 

200 PR I NTTAB ( 28 )"*";: I NPUTNL : I FNL< 1 ORNL >3 

PR I NTCHR* < 27 ) ; CHR$ € 30 ) ; CHR* ( 29 ) ; CHR* ( 27 ) ; G0T0200 
210 CLS : PR I NT3473 , " COMPUT I NG N=0 

220 XM=0; YM=0:FQRI=1T0ND; XM=XM+X ( I> ; YM=YM+Y ( I ) sNEXTIs 
XM=XM/ND: YM=YM/ND 
230 N=N+l;Nl=N+l:N2=N+2 

240 FOR J= 1 T05 : R ( J ) =0; S ( J ) =0: FORK= 1 T05 : Q ( J , K ) =0 : NEXTK , J 
250 F0RI=1T0ND: X1=X (I) :Y1=Y(I) s FOR J=1 TONI : F0RK=1T0N2: 

I FKC =N 1 THEN270ELSE260 
260 Q(J,K)=Q(J,K)+(X1C (J-l) )*Y1;G0T0280 
270 Q(J,K)=Q(J,K) + (X1II (J-l) ) * (X1C (K~l) ) 

280 NEXTK, J, I: I=~l 

290 FORK= 1 TON 1 : R ( K ) =K ; NE X TK 

300 R1=1E— 9 

310 FOR J = 1 TON 1 : FORK= 1 TON 1 : I FR ( J ) =0THEN350ELSE320 
320 Z1=ABS(Q(J,K) ) : Z2=ABS(R1) 

330 IFZ 1< Z2THEN350ELSE340 
340 R1=Q(J,K) : J1=J:K1=K 
350 NEXTK, J 

360 R ( J 1 ) =0 ; FORK= 1 T0N2 ; Q ( J 1 , K ) =Q ( J 1 , K ) /R 1 ; NE X TK 
370 FOR J= 1 TON 1 : I F J= J 1 THEN390ELSE380 

380 D=Q < J , K 1 } : FORK= 1 T0N2 : Q ( J , K ) =Q ( J , K ) — Q ( J 1 , K ) *D: NEXTK 

390 NEXTJ; 1=1+1: IFI=NTHEN400ELSE300 

400 FOR J=1 TONI :F0RK=1 TONI : Z 1=ABS (Q ( J , K) ) 

410 IFZIOI E— 9THEN420ELSES ( K ) =Q ( J , N2 ) 

420 NEXTK, J 

430 I FNC NLTHEN230ELSE440 

440 Y3=0s Y4=0; Y5=0s F0RJ=1T0ND: X 1=X (J) : Y1=Y(J) : Y2=0 
450 FORK= 1 TON 1 : Y2=Y2+S ( K ) * (XI C (K-l) ): NEXTK 

460 Y3=Y3+(Y2-YM> [2; Y4=Y4+ (Yl-YM) [2: Y5=Y5+ ( Y2-Y1 ) C2: NEXTJ 
470 RR=Y3/Y4 

480 CLS : PR I NTT AB ( 23 ) D$ ( NL ) ; " POLYNOMIAL" s PRINT; 

PR I NT" THE EQUATION FOR THE REGRESSION LINE IS : " 

490 PR I NT : PR I NT " YHAT = " ; 

500 0NNG0SUB520 , 550 , 590 
510 G0T0640 

520 IFS ( 1 ) COPRINT"—" ; ABS (S ( 1 ) ) ; ELSEPRINTS ( 1 ) ; 

530 I FS ( 2 ) < OPR I NT " — " ; ABS ( S ( 2 ) ) ; " X" ; ELSEPRINT" + " ; S (2) ; "X"; 

540 RETURN 

550 IFS ( 1 ) COPRINT ; ABS (S ( 1 > ) ; ELSEPRINTS ( 1 ) ; 

560 IFS (2) COPRINT"-"; ABS (S (2) ) ; " X " ; ELSEPRINT"+" ; S (2) ; "X"; 

570 IFS (3) COPRINT" -" ; ABS (S <3> > ; " X C2" ; ELSEPRINT" +" ; S (3) ; " XC2" ; 
580 RETURN 

590 IFS ( 1 ) COPRINT"-" ; ABS (S ( 1 ) ) ; ELSEPRINTS ( 1 ) ; 

600 IFS (2) COPRINT"-"; ABS (S (2) ) ; " X " ; ELSEPRINT"+" ; S (2) ; "X"; 

610 IFS (3) COPRINT" ABS (S (3) > ; " X C2" ; ELSEPRINT" +" ; S (3) ; " X C2" ; 

620 IFS (4) COPRINT" -"; ABS (S (4) );" X 13" ; ELSEPRINT" +" ; S (4) ; "XC3" ; 
630 RETURN 

640 PRINT: PRINT; PRINT"MEAN X =" ; XM: PRINT"MEAN Y =“ ; YM 
650 PR I NT : PR I NT "R SQUARE =";RR 

660 PRINTS968, "SELECT NEW MODEL (M> /PRINT RESIDUAL TABLE (T>"; 
670 I $= I NKE Y$ : I F I $= " " THEN670ELSE I F I $= " M " THEN 1 90ELSE I F I $= " T " 
THEN680ELSE670 
680 CLS ; J =0 

690 F0RI=1T0ND; X 1=X ( I ) : Y1=Y ( I ) : 

YH=S ( 1 ) +S (2) *X1+S(3) * (X1C2)+S(4) * (XI C3) :RS=YH-Y1 
700 IFJ=0G0SUB810 

710 PRINTUSING"##"; I; : PRINTUSIN6P*; XI; Y1;YH;RS 
720 J=J+1: IFJ=>10THEN730ELSE740 

730 PRINTS>977, "TYPE C ENTER > TO CONTINUE INPUTI$: J=0; CLS 

740 NEXTI 

750 PR I NT: PR I NT "SUM OF SQUARES OF DEVIATION FROM REGRESSION =“ ; 
Y5 

760 PRINT3968, "SELECT NEW MODEL (M) / ESTIMATE VALUES OF Y <E)"; 
770 I *= I NKE Y$ ; I F I *= " " THEN770ELSE I F I $= " M " THEN 1 90ELSE I F I $= " E " 
THEN780ELSE770 

780 CLS; PR I NT "TO EXIT SELECT NEW MODEL (M)": PR I NT 
790 INPUT" X ="; X$: IFX$="M"THEN190ELSEX1=VAL(X$) : 
YH=S<1)+S(2>*X1+S(3> * (X1E2)+S(4) * (XI C3) 

800 PR I NTT AB ( 20 ) CHR$ ( 27 ) ; " Y ( " ; N ; " ) =" ; YH; G0T0790 
810 PR I NT " PO I NT " ; T AB (11) "X"; TAB (25) "Y"; TAB (38) "YHAT"; 

TAB (52) "RES" : PRINT: RETURN 
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CURVILINEAR REGRESSION ANALYSIS 

Curvilinear Regression analysis is used to test data for non-linear or curvilinear relationship 
between the dependent variable (Y), and the independent variable (X). This routine allows 
regression analysis for the curvilinear models : 

Y = A * E t (BX) 

Y = A + B LN(X) 

Y = A * X(tB) 


using up to 100 data pairs, which are verified and can be edited following entry. The routine 
calculates coefficients for selected curvilinear models, the mean values of X and Y, and R 2 (an 
indication of closesness of fit, where 1 is perfect). The routine also prints residual tables 
on command and computes values of Y for entered values of X. 

Curvilinear Regression. 


Y 


D 

e 

P 

e 

n 

d 

e 

n 

t 



The Mathematical models for these lines are: 


(a) 

Exponential 

: Y = A*Cf(BX) 

(b) 

Power 

: Y = A*XB 

(c) 

Logarithmic 

: Y = A+B ( X ) 


where A and B are specific equation coefficients for calculated relationships. 


10 " ROUTINE FOR CURVILINEAR REGRESSION ANALYSIS 
20 ’ (C) COPYRIGHT 1980 
30 "T.R. JONES, 

40 "43 HAST IE ST., 

50 "TATURA, 3616 

60 CLS: DIMX < 100) , Y ( 100) ; P*= "#########, ####" : D$ ( 1 ) =" EXPONENTIAL" s 
D* (2) ="LOGARITHMIC" : D* (3) ="POWER" : E* ( 1 ) =" Y" S" ; E* (2) =" X" S" ; 

E* (3)=“X’S OR Y" S" 

70 G0SUB80: GOTO 110 

80 CLS : PR I NTT AB C 1 6 ) " CURV I L I NEAR REGRESS I ON ANAL YS IS": 

PRINTTAB (16) STRING* (31 , 45) 

90 PR I NT : PR I NT : PR I NT ; PR I NTT AB (22) " CURV I L I NEAR MODELS " : PR I NT 
100 PRINTTAB (10) D* ( 1 ) ; " : Y = A * EC (BX) (1)": 

PRINTTAB ( 10) D* (2) 5 " s Y = A + B LN (X) (2)"s 

PRINTTAB ( 10) D* (3) : " : Y = A * XC(B) (3)"s 

RETURN 

110 PRINT3977, "TYPE < ENTER > TO CONTINUE . . . " ; : INPUT I* 

1 20 CLS : PR I NTTAB ( 26 ) " ENTER DATA " s PR I NT s PR I NT s 

PRINTTAB (13) "NUMBER OF DATA POINTS - MAXIMUM IS 100" 

130 PRINTTAB (28) ; s INPUTND: IFND<20RND>100 

PR I NT CHR* ( 27 ) ; CHR* ( 30 ) ; CHR* (29) ; CHR* ( 27 ): GOTO 1 30 
140 PRINT: PRINT: F0RI = 1T0ND: PRINT" X ("; I; " ) =" ; : INPUTX ( I ) : 

PRINTTAB (32) CHR* (27) ; "Y < " ; I ; " ) =" 5 : INPUTY(I) ;NEXTI 
150 CLS :K=0: PR I NTTAB (25) "DATA ENTERED" : PRINT: FOR 1=1 TOND: K=K+1 : 

PR I NT "X ( " ; I ; " ) = M ; X ( I ) ; TAB (32) "Y ('* ; Is ") =";Y(I): 

IFK< 10NEXTIELSEPRINT9977, "TYPE < ENTER > TO CONTINUE " ; : 

INPUTI*: K=0: CLS: NEXTI 
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160 PRINTSD983, "EDIT DATA (Y/N)"; 

1 70 I $= I NKEY$ ; I F I $= " " THEN 1 70ELSE I F I $= " Y " THEN 1 SOELSE I F I $= " N “ 

THEN 190ELSE 170 

180 CLS:K=0; INPUT “DATA POINT TO BE EDITED" ; I ; 

IFI >NDTHEN 1 80ELSEPR I NTT AB (4) " X ( " ; I s " > = " ; X ( I ) ; TAB (36) " Y ( " ; I ; " 
) = " ; Y ( I ) ; 

PRINT-NEW X(";I;") = " ; ; INPUTX ( I ) ; 

PRINTTAB (32) CHR$ (27) ; "NEW Y ( " ; I ; " ) = " ; ; INPUTY < I ) : G0T0150 
1 90 G0SUB80 s PR I NT3856 , " SELECT MODEL " 

200 PR I NTT AB (28) "*"; ; I NPUTNL ; I FNL< 1 ORNL >3 

PR I NTCHR$ ( 27 ) ; CHR$ ( 30 ) ; CHR$ ( 29 ) ; CHR* ( 27 ) ; G0T0200 
210 CLS ; PR I NT 3473 , "COMPUTING 

220 XM=0;YM=0;F0RI=1T0ND;XM=XM+X (I) : YM=YM+Y ( I ) ; NEXTI: 

XM=XM/ND: YM=YM/ND 
230 0NNLG0T0240 , 350 , 460 
240 ’EXPONENTIAL CURVE FIT 
250 FOR 1 = 1 TOND ; I F Y ( I ) < =0THEN57 OELSENE X T I 
260 X2=0: X3=0; X4=0: Y2=0: Y3=0; Y4=0: FORI=ITOND: 

X2=X2+X ( I ) s X3=X3+ (X(I)C2): X4=X4+ ( X ( I ) SLOG ( Y < I ) ) ) s 
Y2=Y2+Y(I) : Y3=Y3+L0G(Y(I) ) ; Y4=Y4+ (LOG ( Y ( I ) ) 12) : NEXT I 
270 B 1 =X4— ( X2S Y3) /ND; B2=X3— (X2C2 ) /NDjB=B 1/B2 
280 Al=Y3/NDs A2=B* (X2/ND) : A=EXP ( A1-A2) 

290 R1=Y4— ( Y3C2) /ND;R=B1C2/ <B2*R1) 

300 CLS : PR I NTT AB ( 23 ) D$ ( 1 ) 5 " CURVE "sPRINT; 

PR I NT "THE EQUATION FOR THE REGRESSION LINE IS;" 

310 PR I NT s PR I NT " YHAT =" ; A; "EXP ( " ; B; " X )" 

320 PRINT; PRINT"MEAN X =" 5 XM; PRINT"MEAN Y =";YM 
330 PRINT; PR I NT "R SQUARE =";R 
340 G0T0590 

350 ’LOGARITHMIC CURVE FIT' 

360 F0RI=1T0ND: IFX ( I ) <=0THEN570ELSENEXTI 
370 X2=0; X3=0; X4=0; Y2=0; Y3=0; Y4=0; F0RI=1T0ND; 

X2=X2+X (I) : X3=X3+L0G(X (I) ) : X4=X4+ (LOG ( X ( I ) ) E2) ; 

Y2=Y2+Y(I) ; Y3=Y3+(Y(I) C2) ; Y4=Y4+ ( Y ( I ) SLOG (X (I) ) ) ;NEXTI 
380 B1=Y4— (X3SY2) /ND; B2=X4- ( X3C2) /ND;B=B1/B2 
390 A=(Y2— (BSX3) ) /ND 
400 R1=Y3— < Y2C2/ND) ;R=B1C2/ (B2SR1 ) 

410 CLS; PRINTTAB (23) D$ (2) 5 " CURVE" ; PRINT; 

PR I NT "THE EQUATION FOR THE REGRESSION LINE IS ;" 

420 PRINT; I FB< OPR I NT "YHAT =" ; A; ; B; "LOG ( X ) " 

ELSEPR I NT " YHAT ="; A; "+";B; "LOG(X) " 

430 PRINT; PRINT"MEAN X =" ; XM: PRINT"MEAN Y =";YM 

440 PRINT; PRINT"R SQUARE =";R 

450 G0T0590 

460 ’POWER CURVE FIT 

470 F0RI=1T0ND; IFY ( I ) <=00RX ( I ) <=0THEN570ELSENEXTI 
480 X2=0; X3=0; X4=0: Y2=0; Y3=0; FOR 1=1 TOND; 

X2=X2+L0G ( X ( I ) ) ; X3=X3+ (LOG ( X ( I ) ) C2) ; 

X4=X4+ (LOG ( X ( I ) ) SLOG (Y(I) ) ) ; Y2=Y2+L0G (Y(I) ) ; 

Y3=Y3+ (LOG ( Y ( I ) ) SLOG (Y(I))); NEXTI 
490 B1=X4— (X2SY2) /ND; B2=X3- ( X2C2) /ND;B=B1/B2 
500 A1=Y2/ND; A2=BS ( X2/ND) ; A=EXP ( A1-A2) 

510 R1=Y3— ( Y2C2) /ND; R=B1 C2/ (B2SR1 ) 

520 CLS; PRINTTAB (26) D$ (3) ; " CURVE" ; PRINT; 

PR I NT "THE EQUATION FOR THE REGRESSION LINE IS ;" 

530 PRINT; PRINT"YHAT =" 5 A; " XC " ; B 

540 PR I NT; PR I NT "MEAN X =" ; XM; PR I NT "MEAN Y =";YM 
550 PR I NT ; PR I NT "R SQUARE =" ?R 
560 G0T0590 

570 CLS; PRINTS)388, "CANNOT TAKE LOGARITHMS OF NEGATIVE AND/OR " ; 

"ZERO " ; E$ (NL> 

580 PR I NT3832 , ; END 

590 PRINT3968, "SELECT NEW MODEL (M) / PRINT RESIDUAL TABLE ( T ) " ; 
600 I $= I NKE Y$ ; I F I $= " " THEN600ELSE I F I $= " M " THEN 1 90ELSE I F I $= " T " 

THEN6 1 0ELSE600 

610 CLS; J=0; SS=0: FOR 1=1 TOND; X 1=X (I) ;Y1=Y(I) ; 

0NNLG0SUB740, 750, 760; RS=YH-Y1 ; SS=SS+ (RSC2) 

620 I F J =0G0SUB770 

630 PRINTUSING"##"; I ; ; PR I NTUS I NGP$ ; X 1 ; Y 1 ; YH ; RS 
640 J=J+1; IFJ=>10THEN650ELSE660 

650 PRINT3977, "TYPE < ENTER > TO CONTINUE INPUTI*: J=0; CLS 

660 NEXTI 

670 PRINT; PR I NT "SUM OF SQUARES OF DEVIATION FROM REGRESSION =";S 
S 

680 PRINT3968, "SELECT NEW MODEL (M) / ESTIMATE VALUES OF Y (E)"; 
690 I $= I NKEY* ; I F I $= " " THEN690ELSE IFI$="M" THEN 1 90ELSE I F I $= " E " 

THEN7 00ELSE690 



ISSUE 25 (DECEMBER 1981) 


MICRO-80 


PAGE 30 


700 CLS SPRINT "TO EXIT SELECT NEW MODEL (M) "sPRINT 
710 I NPUT " X ="; X*: IFX*= ,, M"THEN190ELSEX1=VAL (X$) 

720 0NNLG0SUB740 , 750 , 760 

730 PRINTTAB (20) CHR$ (27) ; "YHAT =" ; YH; G0T0710 
740 YH=A*EXP(B*X1 ): RETURN 
750 YH=A+B*LOG (XI); RETURN 
760 YH=A* (XI CB) ; RETURN 

770 PR I NT " PO I NT " ; T AB (11) "X"; TAB (25) "Y"; TAB (38) “YHAT"; 
TAB ( 52 ) " RES "sPRINT: RETURN 


***** STEEPLE CHASE LII/16K - by C. Cranstone ***** 

Welcome to steeple chase! The grand old DUKE OF NAGSVILLE has invited you and your associates 
to a steeple chase in his honour. 

Due to an old war wound the Duke cannot participate. The Duke will be watching and making various 
comments on your expertise. (Or lack of!!!) 

If you ride very badly then you risk the chance of a broken leg. (Or two!!) If you do manage 
to break a leg you will be taken away in the ambulance. 

Press the 'S' key to start the ride. 

Press the 1 J * key to jump. 

The winner and scores will be displayed at the end of the day. 

The program also includes sound which can be heard through the external cassette deck. The 
sound routine is POKEd into line 10 after the REM. If you are typing this program in from the 

magazine, you should fill the rest of line 10 with blanks, otherwise an error will result. 


STEEPLECHASE 


I 


1 -HI 

mk a tk m ikk m ik m w 


let!*! 

You’ve broken your leg! 


X 




10 G0T02Q; REM ** STEEPLE/BAS ** (C) 1981 C. CRANSTONE 

N.B. LINE 160: B$="7 SPACES: DOWN ARROW: 7 SPACES: DOWN ARROW; 7SPA 
CES" 

20 CLS: TT=PEEK ( 16549) *256+PEEK ( 16548) ; TA=TT+59; M=TT+10 
30 M1=INT (M/256) : M2= I NT ( M-M 1 *256 ) : F0RL=MT0M+47: READZ: POKEL, Z : NEX 
T : I FTT< >171 29 ANDTT< > 1 7385THENDEFUSR0=MELSEP0KE 1 6526 , M2 ; POKE 1 6527 , 
Ml 

40 DATA205, 127, 10,229,221,225,221,78,0, 121,183,200,221,70, 1,62,5 
,211,255, 16,254,221,70, 1,62,6,211,255, 16,254, 13,32,235,221,35,221 
,35,1,255,255,33,48,0,9,56,253,24,214 

50 TA=PEEK ( 16549) #256+PEEK ( 16548) +59; POKETA, 100: POKETA+1 , 100: POK 
ET A+2 , 0 : X=USR ( TA ) 

60 REM**STEEPLE/BAS s C. CRANSTONE AUG. 1981 (C) 

70 CLEAR 100 

SO CLS : PR I NTCHR$ ( 23 ) s PRINT; PRINT; PRINTSTRING* (31 , 176) ; CLEAR2000; 
DEFSTRH,G, J: J8=STRING* (64, 32) ; MN$=CHR$ (23) +"S teepl echas 
e 


By C. Cranstone 

( C ) 1981 . “:FORK=lTOLEN(MN$) : PRINTMID* (MN$, K, 1) ; :FORP=lTOO 

5: NEXTP; NEXTK: F0R0=1T0700: NEXTO 
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90 F0RT=1T04S: READS: NEXTT ; CV=32 

100 IU*=" **Steepl echase* * — **Wr 

itten by C, Cranstone <C) 1981** - **Press 'I' for instructions o 

r 'ENTER' for game** " 

110 60SUB 1 590 

120 CLS: T A=PEEK ( 16549) S256+PEEK ( 16548) +59: F0RK=1T050: PRINT9RND (8 
59) NEXTK: PRINT9272, SC*; s PRINT9595, EM*; 

1 30 CV=CV+ 1 ; I FCV >=LEN ( I U* ) THENCV=0ELSEPR I NT9395 , M I D* ( I U* , CV , 37 ) ; 

: POKETA, 10: POKETA+1 , 10: POKETA+2, 0: X=USR (TA) : F0RU=1T05: NEXTU 
1 40 I FPEEK ( 1 5358 ) =0THEN 1 30ELSEWQ=PEEK ( 1 5358 ) : I FWQ=2THEN 1 440ELSE I 
FWQ= 1 THEN 150ELSE 130 
150 ' 

160 B*=" 


170 C*=" " +CHR* ( 27 ) +STR I NG* ( 5 , 24 ) + " 

180 TA=PEEK (16549) *256+PEEK (16548) +59 

190 PP* ( 1 ) ="f i rst " s’PP* (2) =' , second ,, : PP* (3) ="thi rd" : PP* (4) ="f ourth 
" ; PP* (5) = "f i f th” : PP* (6) ="sixth" 

200 K*= I NKEY* ; I FK*= " *' THEN200 

210 CLS: PRINT: PRINT"How many riders are there" ; CHR* (95) ; 

220 H8=H8+CHR* (27) +CHR* (27) +" "+CHR* (26) +CHR* (26) 

230 K*= I NKEY* : I FK*= " " THENPR I NTCHR* ( 8 ) ; CHR* (143)?: G0T0230ELSEK= V A 
L(K*) 

240 I FK< =00RK >6THENPR I NT " Bad input": F0R0= 1 T0300 : NEXTO : 60T02 1 OELS 
EPRINTCHR*(8) ;K 
250 NP=K 

260 V=0 : TA=PEEK ( 1 6549 ) *256+PEEK ( 1 6548 ) +59 : POKET A , 1 00 ; P0KETA+ 1,13 
0: POKETA+2, Os X=USR (TA) 

270 FORX 1=1T0NP: PR I NT "PI ayer number "XI", enter your name ";:INP 
UTNA* (XI) : NEXTX 1 
280 ' 

290 QW=826 : V= V+ 1 : I FV >NPTHEN 1 070ELSECLS : F0RK= 1 T045 : PR I NT9RND ( 767 ) 
NEXTK 

300 PR I NTS) 15, SC* 

310 I FNT ( V ) >= 1 0THEN280 

320 PR I NTS) 192, "Wi 1 1 the "PP*(V)" rider please mount NT (V) =NT (V 
)+ls I FNT (V) >=10THENPRINT9256, "Last ride ";NAt(V) ; 

330 PRINT9650," "; 

340 60T0470 
350 ' 

360 PRINT9896, "Press 'S' when ready to start please ";NA*(V) 

370 IFINKEY*<>"S"THEN370ELSEPRINT9320, "Ride number ";NT(V); 

380 PRINT9896, " . 

. " ; : PR I NTS 1 92 , " 

"; ;PRINTS>256, " . "; 

390 POKETA, 100: POKETA+1 , 50: POKETA+2, 0: X=USR (TA) 

400 60SUB600 
410 RANDOM 
420 G0SUB490 

430 I F I NKE Y*= " J " THENG0SUB680 
440 PRINT9896, " . 

450 POKETA, 5: POKETA+1 , 100: POKETA+2, 4: POKETA+3, 254: POKETA+4, 0: X=U 
SR (TA) 

460 PR I NT 3)832 , J 9 ; : PRINT3833, LEFT* ( J9, LEN ( J9) -1 ) ;G0TQ420 
470 P0=P0+1 : IFP0=1THENPRINT9640, B*; : PRINT9832, J9; : PRINT9640, H4; E 
LSEI FP0=2THENPR I NT9640 , B* ; : PR I NT 3832 , J 9 ; : PR I NT9640 , H5 ; ELSE I FPO >=3 
THENP0=0 : PR I NT9640 , B* ; : PRINT9S32, J9; : PRINT9640, H6; 

480 POKETA, 100: POKETA+1 , 16: POKETA+2, Os X=USR(TA) : F0RP=1T0150: NEXT 
P: AS=AS+1 : IFAS=>6THENAS=0: G0T0350ELSE470 
490 ' MOVE 

500 PRINT9QW, JU*; :PP=PP+1: I FPP= 1 THENPR I NT 9640 , B* ; : PR I NT 9640 , H2 ; E 
LSEI FPP=2THENPR I NT9640 , B* ; : PR I NT9640 , H 1 ; ELSE I FPP=3THENPR I NT9640 , B 
* 5 : PR I NT9640 , H3 ; ELSE I FPP >=4THENPP=0 : PR I NT9640 , B* ; : PR I NT9640 , H 1 ; 
510 PR I NT9QW , C* ; : QW=0W-RND (3) ; IFQW<774THENIP=QW: PRINT9650, "Nay! 
Ouch ! " ; : QW=0; PR I NT 9640 , H 1 ; : GOT 0690ELSEPR I NT 9QW , JU*s 
520 RETURN 

530 POKETA, 100: POKETA+1 , 20: POKETA+2, 0: X=USR (TA) : PR I NT9QW , C* ; : QW= 
QW-RND (3) : IFQW<=775THENQW=775: RETURNELSEPR I NT 90 W , JU*; 

540 PR I NT 9832 , J 9 ; : PR I NT 9833 , LEFT* ( J9, LEN ( J9) -1 ) : RETURN 

550 POKETA, 45; POKETA+1 , 60; POKETA+2, 0; X=USR (TA) : ONRND (4) G0T0560, 5 

70, 580, 590 

560 PRINT3256, "Go see an optici an !";: RETURN 

570 PRINT9256, "You jumped too ear 1 y !";: RETURN 

580 PRINT3256, "Do they let you out on weekends?" ;: RETURN 

590 PRINT3256, "Whats the matter? Got a nervous twitch or somethi 

ng?"; ; RETURN 
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600 ' PICK JUMP 

610 POKET A , 34 : POKET A+ 1 , 52 : POKET A+2 , 0 : X=USF. ( T A ) : ONRND ( 6 > B0T062O , 6 

30 , 640 , 650 , 660 , 670 

620 JU$=J 1 : RETURN 

630 JU$=J2s RETURN 

640 JU$=J3: RETURN 

650 JU$= J 4 : QW=B2 1 : RETURN 

660 JU$=J5: RETURN 

670 JU$=J6; RETURN 

680 I P=QW : PR I NT3640 , B$; s PRINT3641 , H7; : G0SUB530 s PR I NT364 1 , B$ ; : PR I 
NT3512,H9; : G0SUB530: PRINT3452, B*; s PRINT3512, H9; : GOSUB530s PRINT345 
2 , B$ ; : PR I NT 3640 , HS ; ; G0SUB530 s FORO= 1 TO 1 50 s NEXTO ; PR I NT3640 , B$: : PR IN 
T3640,H1; sGOSUBlOOO 

690 QW=S26: IFIP<=774THENG0SUB1320: PRINT3192, "Bad jump 1 ";G0SUB77O 
: G0SUB760: G0T0740 ' 

700 QW=826s IFIP=776THENPRINT3192, "Fair jump! 2 points !" sG0SUB83O 
; G0SUB760; SC (V) =SC (V) +2: G0T0740 

710 QW=826: IFIP=777THENPRINT3192, "Poor jump! 1 poi nt ! " s G0SUB88O; 
G0SUB760: SC (V) =SC ( V) +1 : G0T0740 

720 QW=826s IFIP=775THENPRINT3192, "Good jump by j ove ! " s G0SUB94O ; G 
QSUB760: SC (V) =SC (V) +3; G0T0740 

730 QW=826s IFIP>=776THENPRINT3192, "You need gl asses !!": G0SUB55O; 
G0SUB760 : SC ( V ) =5C < V ) - 1 : G0T0740 
740 IFNT (V) >=1 0THEN290ELSE320 
750 RETURN 

760 F0RTY=0T0500: NEXTTY; RETURN 

770 POKETA, 76s POKETA+1 , 76: POKETA+2, Os X=USR (TA) : ONRND (4) G0T078O. 7 
90,800,810 

780 PRINT3256, “Are you riding a horse or a corgi ?" ; s RETURN 

790 PRINT3256, "Constructive comments take up a new hobbv 1 " - ; RETU 

RN ' 

800 PRINT3256, "Are you sure you can ride a horse?" ; s RETURN 
810 PRINT3256, "Whats the matter! have you got a loose saddle'?";: 
RETURN 
820 RETURN 

830 POKET A , RND ( 255 ) : POKET A+ 1 „ 45 : POKETA+2 , 0 ; X=USR (TA) ; ONRND < 3 ) GOT 
0840,850,860 

840 PRINT3256, "A bit more effort and you'll make it over easier 1 
" ; : RETURN 

850 PRINT3256, "Pretty good, but not excel 1 ent !";; RETURN 

860 PRINT3256, "At least your trying! keep up the standard RET 

URN 

870 RETURN 

880 POKETA, RND <255) ; POKETA+1 , 43s POKETA+2, Os X=USR <TAi s ONRND < 4) GOT 
0890,900,910,920 

890 PRINT3256, "Only 1 point! Now try for more !";: RETURN 
900 PRINT3256, "A corgi could do better !!";; RETURN 
910 PRINT3256, "Shape up or ship out !!!!";; RETURN 

< ?- i -0 PRINT3256, "A bit weak! Come on, you can do better than th^t 
!“;: RETURN 
930 RETURN 

940 POKETA, Ills POKETA+1 , 90: POKETA+2, Os X=USR <TA> s ONRND G0T095O 
960,970,980 

950 PR I NT 3256 , " I say, well done old chap !"; s RETURN 

960 PR I NT3256 , " Br i 1 1 i ant ! Absolutely br i 1 1 i ant !"; s RETURN 

970 PRINT3256, "Awwwf ul ly good! Well done I say !"; s RETURN 

980 PRINT3256, "What a. jump! Wonnnderful 1 (Chorale chor kl e 1 ) " * - PE 

TURN 

990 RETURN 

1OO0 I FI P— 777 AND JU$ = J4THENSC ( V ) = SC ( V ) — 1 s PRINT3448, " Your horse hi 
t water! lose the poi nt ! " p s F0R0=lTQ400s NEXTO s PRINT344S, " 

RETURN 

1010 IFIP=777ANDJU$=J6THENSC (V) =SC (V) —1 s PRINT3448, "Your horse la 
nded in the mud! Lose the point! "p : F0R0=1T0400; NEXTOs PRINT344S, " 

. " ; s RETURN 

1020 POKETA, 50: POKETA+1 , 75s POKETA+2, 0: X=USR (TA) ; RETURNELSERETURN 
1030 PRINT" ♦♦ Winners 

1 040 F0RT= 1 TONP s I FW I $ < T ) = " Y " THENPOKET A , 20 s POKET A+ 1 , 20 : POKETA+2 , 0 
s X=USR (TA) ; PRINTNA* <T) s NEXTTELSENEXTT 

1050 FQRT=1T0NP; IFWI$ <T) =" Y"THEN1060ELSEPRINT"DRAW 1 NO WINNER'" 
1060 RETURN 
1070 ’ 

1080 CLS s PR I NT 315, SC$ ; 

1090 PRINT; PRINTSTRIN6$ <64, 176) 

1 100 F0RT= 1 T QNP s PRINTCHR$ < 143) ; " " p NA$ <T) ; STRINGS (20-LEN <NA$ <T) > 
,32); "scored " ; SC (T) : NEXTT 

1110 I FNP >= 1 THEN IFSC < 1 ) >SC < 2 ) ANDSC < 1 ) >SC < 3 ) ANDSC < 1 ) >SC < 4 ) ANDSC < 

1) >SC < 5 ) ANDSC < 1 ) >SC < 6 ) THENW I $ < 1 ) = " Y " 
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1 1 20 I FNP >=2THEN I FSC < 2 ) >SC ( 1 > ANDSC ( 2 ) >SC < 3 ) ANDSC < 2 ) >SC ( 4 ) ANDSC < 2 
) >SC(5) ANDSC (2) >SC (6) THENWI* (2) = " Y" 

1 1 30 I FNP >=3THEN I FSC ( 3 ) >SC < 1 ) ANDSC < 3 ) >SC < 2 ) ANDSC ( 3 ) >SC ( 4 ) ANDSC < 3 
) >SC(5) ANDSC (3) >SC- <6) THENWI* (3) ="Y" 

1 1 40 I FNP >=4THEN I FSC < 4 ) >SC ( 1 ) ANDSC < 4 > >SC ( 2 ) ANDSC ( 4 ) >SC < 3 ) ANDSC < 4 
} >SC<5) ANDSC (4) >SC- < 6 ) THENW I * < 4 ) = " Y " 

1 1 50 I FNP >=5THEN I FSC ( 5 ) >SC < I ) ANDSC ( 5 ) >SC ( 2 > ANDSC ( 5 ) >SC ( 3 ) ANDSC ( 5 
) >SC<4) ANDSC (5) >SC (6) THENWI* (5) =" Y" 

1 1 60 I FNP >=6THEN I FSC < 6 ) >SC ( 1 > ANDSC < 6 ) >SC < 2 > ANDSC ( 6 ) >SC ( 3 > ANDSC < 6 
) >SC ( 4 > ANDSC ( 6 ) >SC ( 5 ) THENW I * ( 6 ) = " Y " 

1170 PRINTSTRING* <64, 131) : GOSUB 1030; F0RT=IT03000; NEXTT: CLS; PRINT 
315, SC*? 

1180 PRINT; PR I NT "Another gassB? "; 

1190 PRINTCHR* ( 143) ; CHR* (8) ; ; POKETA, 137; POKETA+1 , 9; POKETA+2, Os X= 
USR(TA) 

1 200 I FPEE.K < 1 5359 ) =OTHEN 1 1 90ELSEK=PEEK ( 1 5359 ) 

1210 POKETA, 1 00 ; POKET A+ 1, 100: POKET A+2,0: X=USR<TA) 

1220 I FK=2THENRUN 

1230 DEFSTRC; C=CHR* < 143) ; CLS; PRINT30, STRING* <64, 143) ;; PRINT; PR IN 
T 

1240 PRINT364, C; : F0RT=2T014; PRINT3T364-1 , C; C; ; NEXTT; PRINT379, SC* 

; ; PRINT3270, HI ; : PRINT3390, FM*; 

1 250 PR I NT3896 , STR I NG* (64,188); 

1260 N*= " 

’Steeplechase’ Written by C» Cranstone (C-) 1981 ; Ch 

ristie downs, Adelaide, South Australia, ; Modified for SYSTEM-80 
/ PMC— SO /VIDEO GENIE and TRS-80 Model I a" 

1270 N*=N*+"nd Model III computers ** " 

1280 V=60 

1 290 V=V+ 1 ; I F V >=LEN < N* ) THENV=OELSEPR J N73577 , M I D* < N$ , V , 62 ) ; ; POKET 
A, 255: POKETA+1 , 14; POKETA+2, 0; X=USR <TA) 

1300 F0RT=1T020; NEXTT 
1310 GOTO 1290 
1 320 ' 

1 330 I FRND < 3 ) < >2THENRETURN 

1 340 PR I NT3640 , EM* ; : FORT =T ATOT A+50STEP2 ; POKET , 50 ; POKET+ 1 , T- < TA— 2 
) ; NEXTT; POKETA+51 , O; POKETA+52, O: X=USR (TA) 

1350 PR I NT 3640 , EM* ; 

1 360 POKETA ,120; POKET A+ 1,24: POKETA+2 , O 

1 370 F ORT =650T 0690STEP2 ; PR I NT3T , FM* ; : PR I NT3T+64+64 , " " ; : FORO= 1 TO 
30: NEXTO; PRINTST, C*; : PRINT3T+1 , FB*; : PRINT3T+65+64, " " ; ; F0R0=1T030 
; NEXTO: PRINT3T+1 , C*; : X=USR (TA) : NEXTT 

1 380 POKET A+ 1 6 , O : PR I NT3T+64 , CM* ; : FORT=T ATOT A+ 1 5STEP2 : POKET + 1 , 200 
; POKET, T- (TA-2) ; NEXTT; X=USR (TA) 

1390 PRINT3448, "You’ ve fallen off of your horse and broken your 
leg! ! "; ; F0RU=1T0400: NEXTU: PRINT3448, CHR* (30) ; 

1 400 POKETA ,13: POKET A+ 1,189: POKETA+2 , O 

1410 F0RT=448T0485: PRINT3T, Al*; ; F0R0=1T015; NEXTO: PRINT3T, A2*; ;FO 
R0=1T015: NEXTO; PRINT3448, CHR* (30) ; ; PRINT3512, CHR* (30) ; :PRINT3576, 
CHR* (30) ; : X=USR (TA) : NEXTT: PRINT3T-1 , Al*; ; PRINT3755, " " +CHR 

* < 26 ) +STR I NG* <8,24)+" " ; : PRINT3485, Al*; 

1420 F0RX=1T0700: NEXTX 
1430 G0T0280 

1440 REMi* \\ Instructions below \\ ** 

1450 CLS; F0RT=1T045: PRINT3RND (896) , : NEXTT; PRINT379, SC*; 

1460 PRINT30, STRING* <64, 143) ; : PRINT3896, STRING* <64, 188) ; ;PRINT36 
4, CHR* (143) ; : F0RT=2T014: PRINT3T*64-1 , CHR* < 143) ; CHR* (143) NEXTT: P 
RINT3959, CHR* < 143) ; : I F VK=2THENRETURN 
1470 PRINT3209, "Welcome to steeplechase!"; 

1480 PRINT3257, "The grand old DUKE OF NAGSVILLE has invited you 
and your . . " ; 

1490 PRINT3321 , "associates to a steeplechase in his honour."; 

1500 PRINT3449, "Due to an old war wound, the Duke can not partic 
ipate. . . "; 

1510 PRINT3513, "The Duke will be watching and making various com 
ments on your " ; : PRINT3577, "experti se. (Or lack of!!!)"; 

1520 PRINT3641 , " If you ride very badly then you risk the chance 
of a broken " ; : PRINT3705, "leg. (Or two!!) If you do manage to 
break a leg you will be" ;; PRINT3769, "taken away in the ambulance. 
5 

1530 PRINT3847, "Press any key to continue"; 

1 540 I FPEEK ( 1 5359 ) =0THEN 1 540 
1550 VK=2: GOSUB 1440: VK=0 

1560 PRINT3321 , "Press the 'S' key to start the ride. " ; : PRINT3449 
, "Press the 'J' key to jump. " ; : PRINT3577, "The winner & scores wi 1 
1 be displayed at the end of the day. "; : PRINT3705, HI ; :PRINT3847, " 
Press any key to continue"; 

1 570 I FPEEK ( 1 5359 ) =0THEN 1 570 
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1580 GOTO 120 
1590 REM 

1600 DATA32, 144,32, 32,32,32,32, 184, 144,26,24,24,24,24,24,24,24,2 

4.24. 130. 130. 188. 188. 188. 188. 190. 135. 131.26.24.24.24.24.24.24.24, 
24,24,32, 168, 169, 129,32, 130, 150, 180; 'EM* 

1610 F0RT=1T046: READA: EM$=EM$+CHR$ (A) : NEXT 

1620 DATA136, 179, 129, 171, 129, 183, 129, 183, 129, 183, 153, 170,32, 170, 

147. 129. 151. 129. 181.186. 168. 179. 148. 166. 147. 170. 147. 129.26.24.24, 

24 . 24 . 24 . 24 . 24 . 24 . 24 . 24 . 24 . 24 . 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24 „ 24 , 24 , 24 
,24,24,24,24, 136, 140, 129, 138,32, 141, 132, 141,132 

1630 DAT A 1 33 , 32 , 138, 140, 138, 140, 132, 141, 132, 133, 138, 138,32, 133, 1 
40,134,138, 140, 132s F0RT=1T085: READAs SC$=SC$+CHR$ ( A) : NEXT 
1640 DATA32, 168, 183,176, 190, 1 80 ,26,24 , 24,24,24,24,24,24,32, 150, 1 
90, 159, 163, 141,32,26,24,24,24,24,24,24,24,32, 136, 153, 145,32,32s ' H 
7 

1650 F0RT=lT035s READAs H7=H7+CHR$ ( A) s NEXTT 

1660 DAT A32 , 164,32,32,32, 160, 144,26,24,24,24,24,24,24,24,32, 160, 
175, 188, 188, 159, 131,26,24,24,24,24,24,24,24, 136, 137, 129,32, 130, 18 
2, 164 s F0RT=lT037s READAs H8=HB+CHR* (A) s NEXTT 

1670 DAT A 1 68 , 191,191, 191, 148,27,24,24,24,24,24,32, 160, 176, 144,32 
, 26 s FORT= 1 TO 1 7 s READA ; J 1 = J 1 +CHR* ( A ) s NEXT 

1680 DATA 136, 191, 132,27,24,24,24, 160, 176, 144, 26s F0RT=1T01 1 s READA 
: J2=J2+CHR$ (A) s NEXT : DATA191 , 191,27,24,24, 160, 144, 26s F0RT=lT08s REA 
DAs J3=J3+CHR$ (A) s NEXT s DATA136, 191, 132,27,24,24,24, 160, 176, 144,26, 
32,32,32,32,32,26,24,24,24,24,24,87,97,116,101,114 
1690 DATA27:F0RT=1T028; READA; J4=J4+CHR$ ( A) sNEXT 

1700 FORT= 1 T02 1 s J9=J9+CHR$ < 131 ) +CHR$ (35) +CHR$ (38) : NEXT: DATA191 , 1 
40, 140, 140, 191,27,24,24,24,24,24, 176,32,32,32, 176, 26s F0RT=lT017s R 
EADA: J5=J5+CHR$ ( A) : NEXT 

1710 DATA191 , 191,27,24,24,160, 144,26,32,32,32,26,24,24,24,77, 117 
, 100, 27: F0RT=1T019: READA: J6=J6+CHR$ ( A) ; NEXTT: DATA160, 32, 32, 32, 144 
,26,24,24,24,24,24,32, 137, 191, 134,32,26,24,24,24,24,24, 160, 134,32 
, 137, 1 44 : FORT = 1 T027 : READA : FM$=FM$+CHR$ ( A ) : NEXTT 

1720 DATA32, 144,32,32, 160,26,24,24,24,24,24,32, 130, 164, 152, 129,2 
6,24,24,24,24,24,32,152,139,135,164: FORT= 1 T027 : READA s FB$=FB$+CHR* 
(A) s NEXT s DATA32, 160, 164, 152, 144,26, 24,24,24,24,24,32, 153, 139, 135, 
166: F0RT=1T01 6s READA: CM$=CM$+CHR$ (A) s NEXTT 

1730 DAT A32 , 32 , 32 , 32 , 32 , 176,32, 144,26,24,24,24,24,24,24,24,24, 13 
6, 137, 176, 184, 191, 176, 190, 143, 132,26,24,24,24,24,24,24,24,24,24,3 
2, 160, 167, 135, 131, 139, 153, 144,26,24,24,24,24,24,24,24,24,32, 129, 1 
29,32,32,32, 130, 130; F0RT=1T061: READ A; H9=H9+CHR$( A) 

1740 NEXT ; DATA32, 32, 32, 160, 188, 176,32, 184, 144,26,24,24,24,24,24, 

24.24.24.24. 160. 134. 188. 191. 191. 189. 190. 135. 131.26.24.24.24.24.24 
,24,24,24,24,32, 152, 169, 129, 160, 134, 130, 148, 32: F0RT=1T047: READA: H 
5=H5+CHR$ (A) : NEXT 

1750 DATA32, 144,32, 160, 179, 176,32, 184, 144,26,24,24,24,24,24,24,2 

4.24.24. 130. 130. 188. 188. 191.189. 188. 159. 131.129.26.24.24.24.24.24 
,24,24,24,24,32, 168, 169, 129,32, 130, 150, 148: F0RT=lT047s READA: H6=H6 
+CHR$ (A) : NEXT 

1760 DAT A32 , 32 , 151, 131, 131, 131, 131, 147, 131, 131, 171, 131, 139, 164, 1 

44.32. 32.32. 26. 24. 24.24.24.24.24.24. 24.24. 24. 24.24.24. 24.24.24. 24 
,24,32,32, 149,32, 176, 176, 147, 135, 129,32, 130, 131,131,179, 179, 147, 1 

31 . 148. 26. 24. 24.24.24.24. 24.24. 24.24.24.24. 24. 24. 24 

1770 DAT A24 , 24 , 24 , 24 , 32 , 136, 141,134, 166, 179, 134, 140, 140, 140, 140, 
140, 134, 166, 179, 134, 140, 141 : F0RT=1T092: READA: A1*=A1$+CHR* (A) : NEXT 
T ; DAT A32 , 32 , 32 , 160, 179, 176,32, 184, 144,26,24,24,24,24,24,24,24,24, 

24.32.150.188.191.191.189.190.135.131.26.24.24.24.24.24 

1780 DAT A24 ,24,24,24, 32 , 168, 169, 129,32, 130, 150, 148, 32: F0RT=1T047 
: READAs H1=H1+CHR$ (A) : NEXT: DATA32, 136, 144, 32, 184, 188, 151 , 160, 180, 3 
2,26,24,24,24,24,24,24,24,24,24,24,32,32, 130, 188, 190, 189, 188, 159, 
131 , 129, 26, 24, 24, 24, 24,24,24,24,24, 24,24, 32, 32, 32 
1790 DATA 137,153,144,130,166,164,32: FORT= 1 T052 : READA : H2=H2+CHR* ( 
A) : NEXT s DATA32, 32,32, 176, 179, 144, 160, 180,32,26,24,24,24,24,24,24, 

24.24.24. 168. 169. 188. 190. 191.188. 159.131. 129.26.24.24.24.24.24.24 
,24,24,24, 160, 166, 134, 160, 152, 153, 129,32,32 

1800 F0RT=1T047: READAs H3=H3+CHR* (A) sNEXT: DATA32, 32, 32, 160, 179, 17 
6,32, 160,32.26, 24,24,24, 24,24,24,24,24,24, 168, 169, 188, 191, 191, 189 
, 188, 175, 189,26,24,24,24,24,24,24,24,24,24,32, 168, 169, 129,32, 130, 
150, 164; F0RT=1T046: READA; H4=H4+CHR$ (A) sNEXT 

1810 DAT A32 , 32 , 151,131,131,131,131,131,131,131,171, 131, 139, 164, 1 

44. 32.32. 32.26. 24. 24. 24.24. 24.24. 24. 24.24. 24.24.24. 24. 24. 24. 24. 24 
,24,32,32, 149,32, 176, 176, 144,32,32,32, 130, 131,131,179, 179, 147, 131 
, 148, 26, 24, 24, 24, 24, 24, 24,24,24,24, 24,24, 24 

1820 DAT A24 , 24 , 24 , 24 , 24 , 24 , 32 , 136, 141,134, 140, 153, 134, 140, 140, 14 
0, 140, 140, 134, 140, 153, 134, 140, 141 : F0RT=1T092: READA: A2$=A2$+CHR* (A 
) sNEXT 
1830 RETURN 
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***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features and 
articles. 


** MEASUREMENTS LII/16K ** 

This program was primarily designed to 
help high school students with their studies. 
It poses problems and asks questions on 
the following solid figures: cube, rectangle 
faced prism, rhombus faced prism, triangle 
faced prism, parallelogram faced prism, 
trapesium faced prism, cylinder, pyramid 
cone and sphere. All of the above figures 
are displayed graphically before the questions 
are asked. 


** SUPER HANGMAN LII/16K ** 

Oh no! Not that again. That's what you 
thought when you saw the title and so did 
I, which just goes to prove how wrong Software 
Editors could be if they didn't look at 
EVERY program, regardless of the title. 
This FANTASTIC program has constantly animated 
graphics, plays tunes and sound effects 
and is Hangman like you never saw it before 
- don't miss it! ! ! 


** FILES LII/48K ** 

Yes... it is! The files program that was 
requested to be modified to run in 48K. 
Originally published way back in issue 
3, February 1980, the program had a m/1 
routine that had to be loaded separately 
- very messy!!! This version has the 
machine language built right into the BASIC 
program. 


** DUPLEX LII/4K m/1 ** 

This is a package of double precision math- 
ematical functions including, SIN, COS, 
TAN, ATN, EXP, LOG and SQR. All of these 
functions are called quite easily from 
BASIC, e.g. X = USR SIN(Y) 


** DATA BASE MANAGEMENT SYSTEM 48K/Disk ** 

Next month we present this efficient Data 
base management system. This one program 
alone is worth more than your subscription 
AND the author has found a way to store 
strings so that BASIC doesn't waste time 
shuffling them around. Next month he reveals 
all 
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***** CASSETTE/DISK EDITION INDEX ***** 

The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 

All cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded 
on side 1 of the cassette. Level I programs are recorded on side 2. Level I programs are not 

compatible with the System 80. All programs are recorded twice in succession. Note, System 
80 computers have had different tape-counters fitted at different times. The approximate 
start positions shown are correct for the very early System 80 without the volume control or 

level meter. They are probably incorrect for later machines. The rates for a cassette subscription 

are printed on the inside front cover of each issue of the magazine. 

The disk edition contains all those programs which can be executed from disk, including Level 
I programs. Level I disk programs are saved in the NEWDOS format. Users require the Level 

I/CMD utility supplied with NEWDOS + or NEWDOS 80 version 1.0 to run them. 


APPROX. START POSITION 


SIDE ONE 

TYPE 

I.D. 

DISK FILESPEC 

CTR-41 

CTR-80 

SYSTEM-80 

POLYNOMIAL REGRESSION 

L2/4K 

P 

POLY/BAS 

15 

10 

10 


II 

II 


50 

34 

36 

CURVILINEAR REGRESSION 

L2/4K 

C 

CURV/BAS 

85 

57 

60 


II 

II 


119 

80 

84 

STEEPLECHASE 

L2/16K 

s 

STEEPLE/BAS 

150 

102 

107 





240 

162 

170 

3-D MAZE 

L2/16K 

M 

MAZE/BAS 

320 

215 

225 

SIDE TWO 







3-D MAZE 

L2/16K 

M 


15 

10 

10 

BASIC + LABELS 

DISK/32K 

LABELS 

LABELS/CMD 

82 

55 

58 

it 

(OBJECT) 

II 


104 

70 

73 


(EDTASM) 

II 

LABELS/EDT 

125 

84 

88 

TRIANGLE SOLUTIONS 

L1/16K 

- 

TRIANGLE/LVI 

270 

182 
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HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 


to CONQUEST ELECTRONICS Ry. Ltd. 
212 Katoomba St. KATOOMBA 2780 


Please supply — 
QTY. CAT NO DESC. 


ADV. PRICE 



* subject to availability 




SEND FREIGHT FREE TO 

NAME 

ADDRESS 


ELECTRONICS 

DEALER 


CONQUEST ELECTRONIC* 


PTY. LTD. 


212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 
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